以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于自动编号的新问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1721)

--  作者:woodiy
--  发布时间:2009/2/3 13:47:00
--  关于自动编号的新问题
如果要产生如下的自动编号,该如何设置:
GH0901001
GH0901002
GH0902003
GH0902004
GH0902005
GH0903006
GH0912007



"GH"+YYMM+ "000" +1  

如果到了2010年,我只要手动输入一个GH1001001,然后再继续,

不知道我样的解释,狐爸爸是否可以理解!
--  作者:狐哥
--  发布时间:2009/2/3 14:16:00
--  

在datarowadding 中设置

有如下几个列:日期  年份  ID  单号


E.DATAROW("日期") = Date.Today

IF E.DATAROW("日期") IsNot Nothing Then
   e.datarow("ID")=CurrentTable.Compute("max(ID)","[年份] =#" & e.datarow("年份") & "#")+1
   e.datarow("单号")="GH" & FORMAT(E.DATAROW("日期"),"yyMM") & format(e.datarow("id"),"000")
end if

你试试,是否可以

[此贴子已经被作者于2009-2-3 14:16:28编辑过]

--  作者:woodiy
--  发布时间:2009/2/3 14:19:00
--  
好的,谢谢!