以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73662) |
-- 作者:168448704 -- 发布时间:2015/8/24 14:15:00 -- [求助] 本人设计表如下: 在表的DataColChanged事件中加入如下代码:目的是自动生成委托编号。 If e.DataCol.Name = "委托日期" Then If e.DataRow.IsNull("委托日期") Then e.DataRow("委托编号") = Nothing Else Dim d As Date = e.DataRow("委托日期") Dim y As Integer = d.Year Dim fd As Date = New Date(y,1,1) \'获得该年的第一天 Dim ld As Date = New Date(y,12,31) \'获得该年的最后一天 Dim bh As String = Format(d,"yyyy") \'生成编号的前4位,4位年. If e.DataRow("委托编号").StartsWith(bh) = False \'如果编号的前4位不符 Dim max As String Dim idx As Integer max = e.DataTable.Compute("Max(委托编号)","委托日期 >= #" & fd & "# And 委托日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该年的最大编号 If max > "" Then \'如果存在最大编号 idx = CInt(max.Substring(8,3)) + 1 \'获得最大编号的后三位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("委托编号") = "WT-" & bh & "-" & Format(idx,"000") End If End If 我需要在选择不同的机构名称后,委托编号按照不同的机构进行重新编号,但目前存在的问题是机构名称改变后,委托编号还是按照顺序增加,上述代码该如何改进。 |
-- 作者:大红袍 -- 发布时间:2015/8/24 14:41:00 -- 参考代码
If e.DataCol.Name = "委托日期" OrElse e.DataCol.name = "机构名称" Then [此贴子已经被作者于2015/8/24 14:41:15编辑过]
|
-- 作者:168448704 -- 发布时间:2015/8/24 15:08:00 -- 谢谢! |