- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于自动编号生成 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111547)
-- 发布时间：2017/12/24 17:12:00
-- [求助]关于自动编号生成
请教老师，我今天遇到问题是这样： 有“合同单号”，命名规则为“[领域] & [签订日期] & [3位按日流水号]，如A171224001，A171224002，A171224003，我在参考说明书中“自动编号生成方法”自行设计代码如下
e.DataRow("签订日期") = Date.Today()
e.DataRow("业务员") = User.Name
e.DataRow("领域") = "A" \'领域的默认值定义为A
Dim bh As String = e.DataRow("领域") & Format(e.DataRow("签订日期"),"yyMMdd") \'取得编号的7位前缀
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(合同单号)","签订日期 =
#" & e.DataRow("签订日期") & "# And
[_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max >
"" Then
\'如果存在最大编号
idx = CInt(max.Substring(7,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号(起始号)等于1(有签订日期,无合同编号时的判断)
End If
e.DataRow("合同单号")
= bh & Format(idx,"000")
-- 发布时间：2017/12/24 19:55:00
--
datacolchaned事件
Select Case e.DataCol.name
Case "签订日期", "领域"
Dim bh As String = e.DataRow("领域") & Format(e.DataRow("签订日期"),"yyMMdd") \'取得编号的7位前缀
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(合同单号)","领域 = \'" & e.DataRow("领域") & "\' And 签订日期 = #" & e.DataRow("签订日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(bh.length,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号(起始号)等于1(有签订日期,无合同编号时的判断)
End If
e.DataRow("合同单号") = bh & Format(idx,"000")
end select
-- 发布时间：2017/12/25 9:17:00
--
-- 发布时间：2017/12/25 9:23:00
--
不增加列无法实现的，除非你用sqlcompute http://www.foxtable.com/webhelp/scr/2897.htm
使用compute获取最大值的话，要加一列表达式列，把签订日期+编号的值存放起来，根据此表达式列得到最大值。
或者是，改成循环每一行获取最大值，如
For Each dr As DataRow in e.DataTable.DataRows
Next
-- 发布时间：2017/12/26 0:05:00
--
又遇到自动编号新问题，再次请教：
在DataColChanged事件：
Select Case e.DataCol.Name
Case "合同单号"
Dim dr As DataRow = DataTables("报告管理_客服员").Find("合同单号 = \'" & e.OldValue & "\'")
If dr Is Nothing Then
dr = DataTables("报告管理_客服员").AddNew()
dr("合同单号") = e.DataRow("合同单号")
Dim max As String
Dim idx As Integer
max = DataTables("报告管理_客服员").Compute("Max(编号)","[_Identify] <>
" & e.DataRow("_Identify")) \'取得最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max) + 1 \'获得最大编号后加1
Else
idx = 200 \'否则顺序号(起始号)等于200
End If
dr("报告编号") = e.DataRow("场所") & e.DataRow("领域") & Format(idx,"00000")
Else
dr("合同单号") = e.DataRow("合同单号")
End If
End Select
此主题相关图片如下：1111.jpg
增加了表达式列[编号]，可以用Max统计该列最大编号，但由于某种操作，是会删除中间部分曾用过的报告编号，如附件所示，删除的BA00210、BA00211两个编号已被删除，但希望能加以判断优先使用曾被删除的编号，再去使用最大编号，请问该怎么实现呢？
-- 发布时间：2017/12/26 8:35:00
--
增加一个表保存被删除的编号，按顺序取值，没有再去使用最大编号
-- 发布时间：2017/12/26 9:02:00
--
增加了表达式列[编号]，可以用Max统计该列最大编号，但由于某种操作，是会删除中间部分曾用过的报告编号，如附件所示，删除的BA00210、BA00211两个编号已被删除，但希望能加以判断优先使用曾被删除的编号，再去使用最大编号，请问该怎么实现呢？
参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85293&skin=0