接2楼。
假如你的一个表(表1.dbf)里有不超过255个记录,想将这些记录作为一个新表(表2.dbf)的字段,且这个表的结构参数正好是表1.dbf的四个字段(字段1表示新表的字段名,字段2表示新表的字段类型,字段3表示新表的宽度,字段4表示新表的小数位数),且每个参数都符合表的结构参数规则。则下面的代码可以参考
CLOSE ALL
USE 表1
cString=""
SCAN
cString=cString+ALLTRIM(字段1)+;
" "+;
ALLTRIM(字段2)+;
"("+;
ALLTRIM(STR(字段3))+;
IIF(字段4=0 OR 字段2!="N","",","+ALLTRIM(STR(MIN(字段4,字段3-2))))+;
"),"
ENDSCAN
cString=SUBSTR(cString,1,LEN(cString)-1)
CREATE TABLE 表2 (&cString)