标题：[求助]档案编号代码完善

Select e.DataCol.Name

    Case "人员类别"

        If e.DataRow.IsNull("人员类别") Then

            e.DataRow("人员类别") = Nothing

        Else

            Dim lb As String = e.DataRow("人员类别")

            If lb = "编制人员" Then

                lb = "1"

            ElseIf lb = "临聘人员" Then

                lb = "2"

            ElseIf lb = "退休人员" Then

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

                lb = "3"

            ElseIf lb = "见习人员" Then

                lb = "4"

            ElseIf lb = "异出人员" Then

                lb = "5"

            End If

           If e.DataRow("档案编号").StartsWith(lb) = False '如果单据编号前缀不符

                Dim max As String

                Dim idx As Integer

                max = e.DataTable.Compute("Max(档案编号)","档案编号 like '" & lb & "%' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号

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

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

                Else

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

                End If

                e.DataRow("档案编号") = lb & Format(idx,"000")

            End If

        End If