遍历表把符合要求的行添加到快递查询表中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tns() As String = {"表A", "表B", "表C"}
Dim dt As DataTable = DataTables("快递查询表")
For Each tn As String In tns
    For Each r As Row In Tables(tn).Rows
        If r.IsNull("快递单号") = False Then
            Dim fdr As DataRow = dt.Find("快递单号 = '" & r("快递单号") & "'")
            If fdr Is Nothing Then
                Dim nr As DataRow = dt.AddNew
                nr("快递名称") = r("快递名称")
                nr("快递单号") = r("快递单号")
                nr("寄件日期") = r("寄件日期")
            End If
        End If
    Next
Next

主题：遍历表把符合要求的行添加到快递查询表中