- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码自动编号问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49065)
-- 发布时间：2014/4/11 16:41:00
-- 代码自动编号问题
使用如下代码，在增加行时在提醒编号列自动生成编号，格式类似于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
问题是每次生成的编号都一样，没有递增，求指点。
附件：
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:编号.foxdb
[此贴子已经被作者于2014-4-11 17:14:07编辑过]
-- 发布时间：2014/4/11 16:52:00
--
请上例子.
-- 发布时间：2014/4/11 17:15:00
--
例子已传
-- 发布时间：2014/4/11 17:22:00
--
你条件忘记加前缀了
max = DataTables("表A").Compute("Max(自动编号)","自动编号 Like \'TXBH-" & Format(Date.Now,"yyyyMMdd") & "%\'")
-- 发布时间：2014/4/11 17:31:00
--
原来如此，非常感谢。