表中的“编号”字段是数值型的，10位字符，我想让该编号自动生成，要求前8位数是系统当前的年月日后两位自动加1.
例如：2010062401、2010062402、2010062501、2010062801  
……
不知怎样完成，向老师们求助了。

val(dtoc(date())+"01")

将下面代码写成一个函数，并将它设为“编号”字段的默认值即可

iid=VAL(DTOC(DATE(),[color=#800000; font-weight: bold]1[/color])+'01')
IF RECNO()=[color=#800000; font-weight: bold]1[/color]
    RETURN iid
RETURN .t.
ENDIF
CALCULATE  MAX(id) TO iid2
IF iid2>=iid
    RETURN iid2+[color=#800000; font-weight: bold]1[/color]
ELSE
    RETURN iid
ENDIF

[ 本帖最后由 cnfarer 于 2010-6-29 11:19 编辑 ]

将下面代码写成一个函数（可作为存储过程），并将它设为“编号”字段的默认值即可
iid=VAL(DTOC(DATE(),1)+'01')
IF RECNO()=1
    RETURN iid
ENDIF
CALCULATE  MAX(编号) TO iid2
IF iid2>=iid
    RETURN iid2+1
ELSE
    RETURN iid
ENDIF

[ 本帖最后由 cnfarer 于 2010-6-29 11:24 编辑 ]

replace all 编号 with dtos(date())+padl(recno(),2,'0')

请问 怎样将写的那一段程序 作为字段的默认值