各位老师:
    在下有一问题做了很长时间也没有找到解决办法，在这里想求助专家:
    建立一表ABC.dbf,里面有一字段"序号"为数值型.另建立一表单abc.scx,在表单中建立一文本框TEXT1(属性为字符型),TEXT1与"序号"绑定,第一次在TEXT1中输入001,单击添加按钮(该按钮为表单自动生成)后用鼠标左键单击TEXT1,TEXT1自动生成002,并且每到每年的1月1号该序号自动返回到001重新计数。请问各位老师这个功能能否实现，如果能行的话该怎样编写TEXT1的代码。
    请各位老师、专家多多指教。

可以.请在增加APPEND BLANK 的之后,加一条命令THISFORM.TEXT1.VALUE=RECNO().应该知道RECNO()函数的意思吧?   

   对不起,没有看清楚题目,我再想一想.

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

发错地方了

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

四楼的思路方向是对的，但存在问题。
问题一：增加前导“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编辑过]

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

n=10000+序号

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

晕 ，怎么这么早的帖子？才发现！哈哈
楼主早搞定了吧 ！