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

2、3很简单，1不知道。

请先看帮助，尝试自己做，有具体问题再提问，要上传简单的列表。

你提的都是最基础的问题，帮助中提供了大量这样的例子，看一下就会明白的
2、3做好了，1不用做，用_identify做编号就行：

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

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

按钮代码设置为：

Dim r As Row = Tables("人事工资管理").current
If r.IsNull("出生时间") = False AndAlso r.IsNull("身份证号") = False Then
    If r("出生时间") <> ReadBirthday(r("身份证号")) Then
        messagebox.show("校对错误")
    End If
End If

静下心来看帮助,你就会发现,这些其实很简单的.

逻辑不用管，你的流程语句就错的一塌糊涂，正常的语句：

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("录入身份证号和录入出生日期校对错误!!!")
            End If
        End If
    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 select

逻辑和流程都正常的语句：

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("录入身份证号和录入出生日期校对错误!!!")
            End If
        End If
        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 select