以下是引用lvyuanoffice在2014-4-18 12:00:29的发言:
vfp荒废2、3年了。这基本的东西都搞不懂了,请教如下:
目的:由于字段较多,要求自动遍历表中每一字段类型
在一表单中加了combo列表框,数据源绑定一个表的结构
在interactivechange事件中加入如下代码
do case
case type(field(this.listindex,"表名"))="D"
messagebox("日期")
case type(field(this.listindex,"表名"))="C"
messageb("字符")
……
endcase
type()不会用了,怎么返回都是"U"类型的。
请高手指教。
补充一下:你这段代码可以优化一下:DO CASE前面加一个内存变量赋值命令,比如:FF="表名."+FIELD(this.listindex,"表名"),然后再用TYPE(FF)依次判断。这样程序代码看上去比较简洁,而且也不必让每一个CASE都执行一下运算。vfp荒废2、3年了。这基本的东西都搞不懂了,请教如下:
目的:由于字段较多,要求自动遍历表中每一字段类型
在一表单中加了combo列表框,数据源绑定一个表的结构
在interactivechange事件中加入如下代码
do case
case type(field(this.listindex,"表名"))="D"
messagebox("日期")
case type(field(this.listindex,"表名"))="C"
messageb("字符")
……
endcase
type()不会用了,怎么返回都是"U"类型的。
请高手指教。