主题：如何实现序号列自动编号等!!!谢谢

 

Select Case e.Datacol.Name

    Case  "职务"

        Dim dr As DataRow = DataTables("工资标准").Find("职务 = '" & e.DataRow("职务") & "'")

        If dr IsNot Nothing Then

            e.DataRow("基础工资") = dr("基础工资")

            e.DataRow("级别工资") = dr("级别工资")

            e.DataRow("职务工资") = dr("职务工资")

        End If

    Case "身份证号","出生时间"

        If e.Datarow.IsNull("出生时间") = False AndAlso e.DataRow.IsNull("身份证号") = False Then

           If e.DataRow("出生时间") <> ReadBirthday(e.DataRow("身份证号")) Then

                messagebox.show("录入身份证号和录入出生日期校对错误!!!")

Case "身份证号","性别"

        If e.Datarow.IsNull("性别") = False AndAlso e.DataRow.IsNull("身份证号") = False Then

           If e.DataRow("性别") <> ReadSex (e.DataRow("身份证号")) Then

                messagebox.show("录入身份证号和录入性别校对错误!!!")

           End If

        End If

End If

    End If

End select