主题：两个表有选择的合并

老师，能否帮我做一个？

DataTables("C").DataRows.Clear
For Each dr As DataRow In DataTables("A").Select("编号 Is not null and 商品名 is not null")
    output.show("编号 = '" & dr("编号") & "' and 商品名 = '" & dr("商品名") & "' and 发货时间 = '" & dr("发货时间") & "'")
    Dim ffdr As DataRow = DataTables("B").Find("编号 = '" & dr("编号") & "' and 商品名 = '" & dr("商品名") & "' and 发货时间 = '" & dr("发货时间") & "'")
    If ffdr IsNot Nothing Then
        Dim fdr As DataRow = DataTables("C").Find("编号 = '" & dr("编号") & "' and 商品名 = '" & dr("商品名") & "' and 发货时间 = '" & dr("发货时间") & "'")
        If fdr Is Nothing Then
            fdr = DataTables("C").AddNew
            fdr("编号") = dr("编号")
            fdr("商品名") = dr("商品名")
        End If
        fdr("数量") = dr("数量")
        fdr("发货时间") = dr("发货时间")
        fdr("仓库管理员") = ffdr("仓库管理员")
    End If
Next

老师，能否帮我做一个？

 看17楼啊，你有认真看么？整个帖子，重新看一遍啊

哦，谢谢！我的表A和表B都是Excel格式的文件，怎么才能弄到foxtable里呢？按“高速导入”按钮吗？

 高速导入或者高速合并

老师，请教一下：我的A表有几百行，B表有几千行，在下载后直接安装的foxtable试用版里，用你刚才写的代码能运行吗？

 可以。

谢谢老师！不知道老师们能做类似淘宝那样的网站吗？

我想开个公司。