以下代码是想设计一个最简单的编号就是每增加一行,增加一个人员编号,实现不了想要功能,怎么修改?在那个事件中设置?
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(人员编号)"," [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(0,4)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("人员编号") = Format(idx,"0000")