现在有工号、年份、编号,根据年份,如何实现该工号在同一年份的编号自动生成,而没有前缀,可以为 01-99 ,也可以从1-99。求大神指点。
'根据住院年份对"编号"列自动编号
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 bh As String = Format(d,"yyyy") '生成编号的前4位,4位年.
If e.DataRow("报告文号").StartsWith(bh) = False '如果序号的前6位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编号)") '取得该月的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(0,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("编号") = Format(idx,"000")
End If
End If
End If
我试了一下以上代码不可以。
[此贴子已经被作者于2015/4/19 23:36:30编辑过]