自动编号 样品编号 委托日期
TH12-1 TH 2012-2-15
TH12-2 TH 2012-5-25
TH13-1 TH 2013-1-5
TH13-2 TH 2013-3-9
TH14-1 TH 2014-5-6
想要实现如上效果
逢跳年 编号 归1 不跳年 编号+1
If e.DataCol.Name = "委托日期" Then
If e.DataRow.IsNull("委托日期") Then
e.DataRow("自动编号") = Nothing
Else
Dim y As String = Format(e.DataRow("委托日期"),"yyyy") '取得编号的年号
Dim bh As String ="样品编号" & y.SubString(3,2)'取得编号的前缀
Dim max As String=e.DataTable.Compute("Max(自动编号)","委托日期 = #" & e.DataRow("委托日期") & "#") '取得该年的最大自动编号
Dim idx As Integer
Dim va As String() = CStr(max).Split("-")
If e.DataRow("自动编号").StartsWith(bh) = False '如果编号的前缀不符
idx = 1 '否则顺序号等于1
Else
idx = CInt(va(1)) + 1 '获得最大编号的后三位顺序号,并加1
e.DataRow("自动编号") = bh & "-" & Format(idx,"0000")
End If
End If
End If
代码哪里写错了 提示 调用目标发生异常 高手帮忙看下 ，谢谢 了 ！ 另外 代码 里面 我 貌似 少加了行 代码 ，同时要 判断 委托日期 和 样品编号 不为空 才能 运行代码
[此贴子已经被作者于2012-12-8 23:58:42编辑过]
加好友 
发短信
Post By：2012/12/7 21:42:00 [显示全部帖子]
