| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1804 人关注过本帖
标题:表格里自动增加序号,新手自己写了一段没实现,请老师指教
取消只看楼主 加入收藏
wonfone
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2010-1-11
结帖率:100%
收藏
已结贴  问题点数:18 回复次数:2 
表格里自动增加序号,新手自己写了一段没实现,请老师指教
SELECT jh
SET FILTER TO SUBSTR(编号,1,8)=DTOS(DATE())
GO bottom
IF EOF() .and. BOF() .or. RECCOUNT()=0
  sn='000'
ELSE
  sn=SUBSTR(编号,9)
ENDIF
blen=LEN(sn)
sn=VAL(sn)
sn=sn+1
sn=ALLTRIM(STR(sn))
elen=LEN(sn)

APPEND BLANK
thisform.rec = recno()
thisform.grid1.column1.value=DTOS(DATE())+SUBSTR('0000',elen-blen)+sn
GO TOP
thisform.grid1.ReadOnly=.F.
thisform.Refresh
搜索更多相关主题的帖子: 表格 
2011-08-29 13:10
wonfone
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2010-1-11
收藏
得分:0 
对不起,又忘了说明问题,这个代码我运行过了,出问题的命令行是:thisform.grid1.column1.value=DTOS(DATE())+SUBSTR('0000',elen-blen)+sn 这句,错误提示是找不到属性value。
2011-08-29 19:27
wonfone
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2010-1-11
收藏
得分:0 
呵呵,tonydeng教训的是,以前写代码都是参考加模仿,现在亲自写起来感觉很乱,有很多问题没有发现,不过有你的指导我学会了更多,谢谢TonyDeng,qjbzjp,hu9jj。修改了代码问题已经解决。
2011-08-30 11:37
快速回复:表格里自动增加序号,新手自己写了一段没实现,请老师指教
数据加载中...
 
   



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

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