| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2727 人关注过本帖
标题:请教序号自动增加问题
只看楼主 加入收藏
nsxlb
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-6-6
收藏
 问题点数:0 回复次数:10 
请教序号自动增加问题
各位老师:
    在下有一问题做了很长时间也没有找到解决办法,在这里想求助专家:
    建立一表ABC.dbf,里面有一字段"序号"为数值型.另建立一表单abc.scx,在表单中建立一文本框TEXT1(属性为字符型),TEXT1与"序号"绑定,第一次在TEXT1中输入001,单击添加按钮(该按钮为表单自动生成)后用鼠标左键单击TEXT1,TEXT1自动生成002,并且每到每年的1月1号该序号自动返回到001重新计数。请问各位老师这个功能能否实现,如果能行的话该怎样编写TEXT1的代码。
    请各位老师、专家多多指教。
搜索更多相关主题的帖子: 序号 自动 
2005-06-20 09:01
fanty123
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2005-5-29
收藏
得分:0 
可以.请在增加APPEND BLANK 的之后,加一条命令THISFORM.TEXT1.VALUE=RECNO().应该知道RECNO()函数的意思吧?   

编程语言无一不精,无一不通
2005-06-22 19:42
fanty123
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2005-5-29
收藏
得分:0 
   对不起,没有看清楚题目,我再想一想.

编程语言无一不精,无一不通
2005-06-22 20:48
手心的太阳
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2005-1-5
收藏
得分:0 
local sum csum
csum=''
sum=0
if day(date())!=1 and year(date)!=1
   sum=val(thisform.text1.value)+1
   if len(sum)<2
     csum='0'+str(sum)
  endif
      
   thisform.text1.value=csum
else
  thisform.text1.value=str(0)
endif
thisform.refresh

我喜欢java胜过一切
2005-06-25 14:53
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 

发错地方了

[此贴子已经被作者于2007-4-5 15:58:17编辑过]


我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-04-05 15:58
lzx111
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-8-7
收藏
得分:0 
2007-08-12 22:14
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
四楼的思路方向是对的,但存在问题。
问题一:增加前导“0”用If只能增加一个“0”,所以应该使用循环
Do while len sum <3
csum='0'+str(sum)
Enddo
问题二(也是最重要的):没有对操作进行判断和限制,如果操作人员在尚未保存资料的情况下不断地在TEXT1按右键,那么这个数就会无限地增加。

以下是对楼主说的:
1、既然序号与TEXT绑定,那么就让程序找到最后一个序号,然后加上1就可以实现了。
2、有一个问题是无法解决的:序号是数值型,那么是不能接受“001”“002”这些值的。

[此贴子已经被作者于2007-8-13 13:34:51编辑过]


两人行已有我师……
2007-08-13 12:32
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 

啸凡,001 002 之类的可以先判断数字小于100则加个"0"
小于10则加"00"


2007-08-13 16:32
qingquan31
Rank: 1
等 级:新手上路
威 望:2
帖 子:172
专家分:0
注 册:2007-6-19
收藏
得分:0 
n=10000+序号

thisform.text1.value=SUBSTR(ALLTRIM(STR(n)),3)

春风红照日,夏雨绿送归。 秋霜黄落叶,冬雪白花飞。
2007-08-13 16:58
qingquan31
Rank: 1
等 级:新手上路
威 望:2
帖 子:172
专家分:0
注 册:2007-6-19
收藏
得分:0 
晕 ,怎么这么早的帖子?才发现!哈哈
楼主早搞定了吧 !

春风红照日,夏雨绿送归。 秋霜黄落叶,冬雪白花飞。
2007-08-13 17:02
快速回复:请教序号自动增加问题
数据加载中...
 
   



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

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