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

自己运行调试过没有？

你这个是购销单号性质的东西吧？用日期加流水号作ID码的。先不管后面表格那里的问题，集中精力把数据弄准确，即如何加一。首先审视数据规律，这个表是日期带流水号，那么只要把眼光放在当天日期上，实际的表中，要么有当天数据，要么没有，很容易确定——表必然有该字段的索引，按当天日期SEEK一下，要么找到，要么没找到，没找到很好办，找到了呢，就顺着下去找到最后一条（当天日期的）记录。知道怎么找吗？

试试下面的代码，看能否有参考作用：

dToday=date()                    &&设定当前的日期
select max(编号) from 表 where 日期=dToday into curs tempid
if isnull(max_编号)
    newid=val(dtos(dToday)+"001")&&设置当天第一个编号（这里假定为三位序号，可以根据需要调整）
else
    newid=max_编号+1             &&计算新的编号
endif

审视数据布局，是编程的基本功。现在模拟一下你数据表的数据，寻找算法。

假设数据表未排序数据如下：
201108100001
201108110001
201108100002
201108100003
201108110002
201108100004
201108120001
201108120002

今天是20110811，追加新记录。

面对这样的数据，我们应该怎样处理呢？首先，让它排序，这是最基本的，最容易想到的是升序排序，就按升序排一次看：
201108100001
201108100002
201108100003
201108100004
201108110001
201108110002
201108120001
201108120002
很明显，经过排序后的数据，必然是所有20110811的聚集在一起，其排列顺序也是升序，以20110811开头的一串数据最后那个就是当前流水号最大的。用SEEK DTOS(DATE())，就可以找到201108110001这条记录，然后一路往下SKIP，直至发现不是20110811开头的那条（即201108120001或表尾，表尾是空记录，也不是20110811开头），到了这时，往回跳一下SKIP -1，就是201108110002，这样，我们就能够加1了。如果连20110811都找不到，那更好，新记录直接就是201108110001。这就是所要的算法，按这个步骤设计程序，就达到目的。

那么，还有更快的算法吗？有！前面我们用升序排序，现在设想一下降序：
201108120002
201108120001
201108110002
201108110001
201108100004
201108100003
201108100002
201108100001
发现了吗？只要SEEK "20110811"成功，就已经找到了所需的记录，省去了后面的寻找动作。这个是最快的！

如何衡量效率呢？学过算法的应知，凡是带FOR、ALL、WHERE之类的筛选，若无索引，必然要全盘检索遍历所有数据，若有索引，就用前面第一种。所谓的INTO到数据表或视图，是把符合条件的记录复制（INTO DBF时）出来，或映射到内存虚拟表（INTO CURSOR）中，这些都是我们不需要的。要时刻记住我们现在要什么？要的是找到某条记录，不是要一个数据集合，无需那些多余的动作！

[ 本帖最后由 TonyDeng 于 2011-8-29 17:17 编辑 ]

对不起，又忘了说明问题，这个代码我运行过了，出问题的命令行是：thisform.grid1.column1.value=DTOS(DATE())+SUBSTR('0000',elen-blen)+sn 这句，错误提示是找不到属性value。

thisform.grid1.column1.text1.value=DTOS(DATE())+SUBSTR('0000',elen-blen)+sn

出错就出错，说什么没实现。早说了你没调试过，以及先不管你后面表格的问题，就是知道你有出错语句，但说没实现，就不应该仅是语句出错问题，而是没有达到按要求序号加一的目的。你的流水码，一会用三位，一会用四位，这也没问题？

呵呵，tonydeng教训的是，以前写代码都是参考加模仿，现在亲自写起来感觉很乱，有很多问题没有发现，不过有你的指导我学会了更多，谢谢TonyDeng，qjbzjp，hu9jj。修改了代码问题已经解决。