数据字典里包含了所有表的表结构信息，现在要根据这个表的记录来生成所有的表，使用CREAT DBF 表名称（字段名称 数据类型（字段长度，小数位））来建表，使用ALTER TABLE 来追加字段。我用了两个中间变量 b和C

USE 数据字典 IN 0 ALIAS sjzd
DO WHILE .not.eof()
b='('+ALLTRIM(STR(sjzd.字段大小))+','+ALLTRIM(STR(sjzd.小数位数))+')'
?b
c=IIF(sjzd.小数位数=0,'('+ALLTRIM(STR(sjzd.字段大小))+')',b)
?c
?ALLTRIM(sjzd.字段名称)+' '+ALLTRIM(sjzd.数据类型)+c
?sjzd.表名称+(ALLTRIM(sjzd.字段名称)+' '+ALLTRIM(sjzd.数据类型)+c) &&这句可得到形如 qxb 操作员 c(20)
  CREATE dbf sjzd.表名称+(ALLTRIM(sjzd.字段名称)+' '+ALLTRIM(sjzd.数据类型)+c) 

来插入括号和逗号，执行到CREATE dbf sjzd.表名称+(ALLTRIM(sjzd.字段名称)+' '+ALLTRIM(sjzd.数据类型)+c) 这句的时候报告说语法错误，试了一下 CREATE dbf 表名称(字段名称 c(str(20)))报告语法错误，括号内的数字不能为字符型，不知道是否是这原因。 请问大神们怎么才能得到（字段名称 数据类型（字段长度，小数位））这其中的括号，逗号及不是字符型的字段长度和小数位?我只想到了以上的笨办法，求大神指点！！

数据字典里有五个字段 表名称 c(20)  字段名称C(20) 数据类型C(10) 字段大小 N(3) 小数位数 N(1)

Select 表名称 from 数据字典 group by 1 into cursor t1
Scan
    bname=Alltrim(T1.表名称)
    Select * from 数据字典 where Alltrim(表名称)==bname into cursor t2
    cstr=""
    Scan
        cstr=cstr+Alltrim(字段名称)+Space(1)+Alltrim(数据类型)+"("+Transform(字段大小)+","+Transform(小数位数)+")"+","
    endscan
    cstr=Left(cstr,Len(cstr)-1)
    Create Cursor &bname (&cstr) && 此处CURSOR 可改为TABLE
    *browse
EndScan

谢班长，完全能达到设想。

还得注意一个问题，自由表的字段名长度不得大于10个字符，数据库表的字段名长度可达128个字符

自动截取

要不要把字符中间的空格也替换掉？比如替换为_

不会自动截取，会报字段名重名或无效。临时表中可以大于10个字符。