程序代码：

CREATE CURSOR TT (A1 C(10),A2 N(4),A3 D,A4 M)
FOR I=1 TO FCOUNT()
    DO CASE
       CASE TYPE(FIELD(I))=[C]
            =MESSAGEBOX([字段 ]+FIELD(I)+[ 数据类型为字符型])
       CASE TYPE(FIELD(I))=[N]
            =MESSAGEBOX([字段 ]+FIELD(I)+[ 数据类型为数值型])
       CASE TYPE(FIELD(I))=[D]
            =MESSAGEBOX([字段 ]+FIELD(I)+[ 数据类型为日期型])
       CASE TYPE(FIELD(I))=[M]
            =MESSAGEBOX([字段 ]+FIELD(I)+[ 数据类型为备注型])
    ENDCASE
ENDFOR

程序代码：

LOCAL B1,B2,B3
B1=0
MESSAGEBOX([B1数据类型为：]+TYPE([B1])+[ 型])
B2=[]
MESSAGEBOX([B2数据类型为：]+TYPE([B2])+[ 型])
B3={}
MESSAGEBOX([B3数据类型为：]+TYPE([B3])+[ 型])