使用如下代码,在增加行时在提醒编号列自动生成编号,格式类似于TXBH-20140411-001
Dim max As
String
max = DataTables("提醒信息记录表").Compute("Max(提醒编号)","提醒编号 Like '" &
Format(Date.Now,"yyyyMMdd")
& "%'")
If max
= "" Then
max="TXBH"
& "-"
& Format(Date.Now,"yyyyMMdd") &
"-" &
"001"
messagebox.Show("第一次"& max)
Else
max="TXBH" &
"-" &
Format(Date.Now,"yyyyMMdd")
& "-"
& CStr(Val(Right(max,3)) + 1).PadLeft(3,"0")
End If
e.DataRow("提醒编号")
= max
问题是每次生成的编号都一样,没有递增,求指点。
附件:
[此贴子已经被作者于2014-4-11 17:14:07编辑过]