以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于自动编号的新问题  (http://foxtable.com/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年，我只要手动输入一个ＧＨ１００１００１，然后再继续，

不知道我样的解释，狐爸爸是否可以理解！
--  作者：狐哥
--  发布时间：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
--  
好的，谢谢！