- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自动编号问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141207)
-- 发布时间：2019/9/24 10:28:00
-- 自动编号问题
此主题相关图片如下：image 2.jpg
窗口一按钮代码：先选出序号为空的行，再按批号个数从高排到底，再把排序后的数据自动编码。
Dim t As Table=e.Form.controls("Table1").Table
Dim ids As String = t.DataTable.GetComboListString("_Identify", "序号 is null")
ids = "-1," & ids.Replace("|", ",")
ids = ids.trim(",")
t.Filter = "_Identify in (" & ids & ")"
t.Sort = "批号个数 DESC"
自动编号代码【这段代码不知道如何写？】
-- 发布时间：2019/9/24 10:35:00
--
dim i as integer = 1
dim rq as string = format(date.today,"yyyyMMdd-")
for each r as row in tables(某某表).rowsr("编号") = rq & format(i,"000")
i += 1
next
-- 发布时间：2019/9/24 10:56:00
--
不用考虑最大编号吗，比如说同一天有可能操作了几次？
-- 发布时间：2019/9/24 11:05:00
--
这种情况想怎么处理？
-- 发布时间：2019/9/24 11:22:00
--
不好意思了 老师 之前没有描述清楚 比如今天上午有三条记录 其自动编号为20190924-001 20190924-002 20190924-003，下午又写进了2条记录，则自动编号为：20190924-004 20190924-005，
-- 发布时间：2019/9/24 11:36:00
--
参考：http://www.foxtable.com/webhelp/topics/2403.htm