以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自动编号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29595)
--  作者：13636600695
--  发布时间：2013/3/9 20:48:00
--  [求助]自动编号

“RK”是加的前缀，增加行的时候报错，未找到列[RK]

 

Dim bh As String = "RK" & "-" & Format(Date.Today,"yyMMdd")
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(单号)","单号 Like \'" & bh & "*\'" )
If max > "" Then \'如果存在最大编号
    idx = CInt(max.Substring(10,4)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
    idx = 1 \'否则顺序号等于1
End If
e.DataRow("单号") = bh & "-" & Format(idx,"0000")