主题：按数据顺序编号

黄色代码有一个在就可以，全删除了就不行，不知道什么原因？这个软件没有办法上传，而且其他表这样写代码也没有问题，只有这一个表是这样，纳闷呀？

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(人员编号)"," [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号

If max > "" Then '如果存在最大编号

    idx = CInt(max) + 1 '获得最大编号的后三位顺序号,并加1

Else

    idx = 1 '否则顺序号等于1

End If

e.DataRow("人员编号") = Format(idx,"0000")