| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1773 人关注过本帖
标题:求教一个VFP的编程问题
只看楼主 加入收藏
thomasou
Rank: 1
等 级:新手上路
帖 子:67
专家分:3
注 册:2010-8-15
收藏
得分:0 
请问8楼:怎样进入关于数据库集的内容,谢谢。
2010-08-20 23:18
thomasou
Rank: 1
等 级:新手上路
帖 子:67
专家分:3
注 册:2010-8-15
收藏
得分:0 
  版主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
2010-08-21 11:22
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
ctable='m'+str(i*100+j,6) 或者ctable='m'+str(i,4)+padl(j,2,'0')

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-08-21 11:33
thomasou
Rank: 1
等 级:新手上路
帖 子:67
专家分:3
注 册:2010-8-15
收藏
得分: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
2010-08-21 12:14
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
谢谢版主指教,俺又改善了代码,再请教: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 编辑 ]

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-08-21 12:35
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
2楼、7楼、16楼提醒楼主,程序为了处理数据和查询数据,而不得不大量动态生成表,而且是很复杂的方式生成,一定是数据库设计的问题。做程序前,请先看看管理信息系统这样的知识,对于你开发系统有帮助。不然楼主会很累的。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-08-21 12:45
thomasou
Rank: 1
等 级:新手上路
帖 子:67
专家分:3
注 册:2010-8-15
收藏
得分:0 
谢谢版主教导,俺对于程序的编写包括思维方式是一般人的思想方式,不是计算机要求的思维方式,昨天俺买了一本《算法与程序设计》,俺再认真读书,提高水平。
再请教版主,对于俺这句代码 c Comstr="ALTER IcSQL ADD COLUMN ms"+CHRTRAN(STR(k,2),' ','0')+" n(1)"&&
                            &cCmostr
确实再运行中,走不过去,显示也是语法错误,正确的是怎样?请指教,谢谢。
2010-08-21 13:22
thomasou
Rank: 1
等 级:新手上路
帖 子:67
专家分:3
注 册:2010-8-15
收藏
得分:0 
更正17楼 &cCmostr 应为  &cComstr,打错了。
2010-08-21 13:31
thomasou
Rank: 1
等 级:新手上路
帖 子:67
专家分:3
注 册:2010-8-15
收藏
得分:0 
恳请版主指教,谢谢。
2010-08-23 20:14
thomasou
Rank: 1
等 级:新手上路
帖 子:67
专家分:3
注 册:2010-8-15
收藏
得分:0 
再请版主指教,谢谢。
2010-08-27 12:01
快速回复:求教一个VFP的编程问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024961 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved