提取多表指定列不重复员工工号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

dim str() as string = {"增减","表B"}

for each n as string in str

Dim s As Table = Tables(n)
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

如果会sql，并且不是临时表，直接使用SQL处理：

insert into {工资表} (工号,姓名) select 工号,姓名 from {增减} where 工号 not in (select 工号 from {工资表})

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