主题：提取多表指定列不重复员工工号

Dim s As Table = Tables("增减")
For i As Integer = 0 To s.Rows.count-1
    Dim b1 As String = s.Rows(i)("工号")
    Dim dr As DataRow
    Dim dn As DataRow
    dr = DataTables("工资表").Find("工号 = '" & b1 & "'")
    If dr Is Nothing Then
        dr = DataTables("工资表").AddNew()
        dr("工号") = s.Rows(i)("工号")
        dr("姓名") = s.Rows(i)("姓名")      
    End If