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

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

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