请问8楼：怎样进入关于数据库集的内容，谢谢。

  版主Tiger5392先生：今天编写了自动产生月分立表的代码，但就是在&&***那一句过不去，余下的代码编得不知有否问题，请您指正，谢谢。     

    set talk off
        set safety off
           close all
        ldDate1=date(2010,8,21)
        ldDate2=date(2011,10,30)
         lcxm='张三'
         for i=year(ldDate1)to year(ldDate2)
              for j=month(ldDate1)to month(ldDate2)
                 ctable='m'+str(year(i)*100+month(j),6)  &&****        
                   use (ctable)in 1
                    append blank
                      repl xm with Icxm
                      if not found
                         lcSQL='create table( 'm'+str(year(i)*100+month(j),6),(xm c(10)'
                           FOR k=1 TO 31
                      cComstr="ALTER IcSQL ADD COLUMN ms"+CHRTRAN(STR(k,2),' ','0')+" n(1)"
                          &cComstr  
                           ENDFOR
                           endif
                           endfor
                           endfor

ctable='m'+str(i*100+j,6) 或者ctable='m'+str(i,4)+padl(j,2,'0')

谢谢版主指教，俺又改善了代码，再请教：1、对于动态表名的产生的那一句（&&&--1）处理有问题（运行显示语法问题），2、加字段ms的那一句（&&-2）是否这样写呢，请指导，谢谢。
           set talk off
        set safety off
           close all
        ldDate1=date(2010,8,21)
        ldDate2=date(2011,10,30)
         lcxm='张三'
         for i=year(ldDate1)to year(ldDate2)
              for j=month(ldDate1)to month(ldDate2)
                    ctable='m'+str(i*100+j,6)
               
                   IF   FILE( 'ctable.dbf ')
                      use (ctable)in 2
                    append blank
                      repl xm with Icxm
                    else
                           IcSQL='creat table  'm'+str(i*100+j,6) ,(xm c(10))'&&————1
                           FOR k=1 TO 31
                      cComstr="ALTER IcSQL ADD COLUMN ms"+CHRTRAN(STR(k,2),' ','0')+" n(1)"&&--2
                          &cComstr  
                           ENDFOR
                           endif
                           endfor
                           endfor

谢谢版主指教，俺又改善了代码，再请教：1、对于动态表名的产生的那一句（&&&--1）处理有问题（运行显示语法问题），2、加字段ms的那一句（&&-2）是否这样写呢，请指导，谢谢。
IcSQL='creat table m'+str(i*100+j,6)+'(xm c(10))'&&————1  ////已经修改
cComstr="ALTER IcSQL ADD COLUMN ms"+CHRTRAN(STR(k,2),' ','0')+" n(1)"&&--2 ///错误


[ 本帖最后由 Tiger5392 于 2010-8-21 12:40 编辑 ]

2楼、7楼、16楼提醒楼主，程序为了处理数据和查询数据，而不得不大量动态生成表，而且是很复杂的方式生成，一定是数据库设计的问题。做程序前，请先看看管理信息系统这样的知识，对于你开发系统有帮助。不然楼主会很累的。

谢谢版主教导，俺对于程序的编写包括思维方式是一般人的思想方式，不是计算机要求的思维方式，昨天俺买了一本《算法与程序设计》，俺再认真读书，提高水平。
再请教版主，对于俺这句代码 c Comstr="ALTER IcSQL ADD COLUMN ms"+CHRTRAN(STR(k,2),' ','0')+" n(1)"&&
                            &cCmostr
确实再运行中，走不过去，显示也是语法错误，正确的是怎样？请指教，谢谢。

更正17楼 &cCmostr 应为  &cComstr，打错了。

恳请版主指教，谢谢。

再请版主指教，谢谢。