- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师 求帮助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71387)
-- 发布时间：2015/7/10 13:52:00
-- 老师 求帮助
老师 我想编制一个自动编号的程序
在号码的前面加上ZGJY
列如：ZGJY-00001
ZGJY-00002
ZGJY-00003
如何编？ 谢谢
-- 发布时间：2015/7/10 14:05:00
--
DataRowAdding事件
Dim bh As String="ZGJY-"
Dim max As String
Dim idx As Integer
max = DataTables("表A").Compute("Max(第一列)","第一列 like \'" & bh & "%\'")
If max > "" Then \'如果存在最大销售单号
idx = CInt(max.Substring(bh.Length)) + 1 \'获得最大销售单号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("第一列") = bh & Format(idx,"000")
-- 发布时间：2015/7/10 14:23:00
--
老师 我刚要编辑号码 就自动退出狐表了
-- 发布时间：2015/7/10 14:25:00
--
帮我看看老师
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学生档案.table |
-- 发布时间：2015/7/10 14:29:00
--
DataRowAdding事件 啊
-- 发布时间：2015/7/10 14:40:00
--
老师 我想要6位数的
-- 发布时间：2015/7/10 14:43:00
--
好了 我弄好了 谢谢老师