vfp荒废2、3年了。这基本的东西都搞不懂了，请教如下：
目的：由于字段较多，要求自动遍历表中每一字段类型

在一表单中加了combo列表框，数据源绑定一个表的结构
在interactivechange事件中加入如下代码
do case
case type(field(this.listindex,"表名"))="D"
    messagebox("日期")
case type(field(this.listindex,"表名"))="C"
    messageb("字符")
……
endcase

type()不会用了，怎么返回都是"U"类型的。
请高手指教。

[ 本帖最后由 lvyuanoffice 于 2014-4-18 12:03 编辑 ]

看下帮助就知晓了

帮助没看清问题出在哪，刚才找到以前sdta的帖子。 在type()里要加表名，形如：type("表名."+field(this.listindex,"表名")),问题出在括号里没加表名，直接用字段名了。
谢谢

Clear 
Create Cursor T (A1 C(10),A2 N(2),A3 D,A4 I,A5 M,A6 L) && 整型数据显示数据类型为数值型
=Afields(ATYPE,'T')
For lnI=1 To Fcount('t')
    *方法一：
    ? Field(lnI,'t'),Type(Field(lnI,'t')),Vartype(Evaluate(Field(lnI,'t'))),Vartype(Field(lnI,'t'))
    *方法二：
    ? ATYPE(lnI,1),ATYPE(lnI,2)
Endfor 

注意观察结果

判断字段值的数据类型建议用方法二

就 Type()函数来说，要使用它判断当前工作区字段的数据类型，无需在字段前加表名。你的代码之所以出现问题，是因为当前工作区与 Field()函数所在的工作区不同所致。

使用 Type()函数来判断字段的数据类型有一定的局限性，比如：整数型(Integer)和数值型(Numric)都返回 N，与表结构中的数据类型不一致，所以使用 AField()函数来判断字段类型更好些。InterActiveChange 事件中的代码修正如下：
= AFIELD(aFld,"表名")
DO CASE
CASE aFld[this.listindex,2] = "D"
    MESSAGEBOX("日期")
CASE aFld[this.listindex,2] = "C"
    MESSAGEBOX("字符")
CASE aFld[this.listindex,2] = "I"
    MESSAGEBOX("整数")
CASE aFld[this.listindex,2] = "N"
    MESSAGEBOX("数值")
……
ENDCASE

建议使用 Field(This.ListItemId,'表名') 试试

直接判断某个字段名是否存在，前面要加表名
?Type('a.aa')
如果用Field()前面不需要加表名，也不需要加引号

受益了。谢谢，热心人很多呀。自己没事又想练练VFP编程了，编一个人力资源管理系统。练练手，很久很久没用VFP了。

建议楼主用VARTYPE()函数代替TYPE()函数，前者无需把变量名括在引号里，使用比较方便。