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

 呃，肯定可以实现，问题是你怎么选择啊，一次生成一行么？

 

 再有，请上传具体的例子。

代码

 

For Each dr As DataRow In DataTables("表A").Select("第一列 Is not null")
    Dim fdr As DataRow = DataTables("表C").Find("第一列 = '" & dr("第一列") & "' and 第二列 = '" & dr("第二列") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表C").AddNew
        fdr("第一列") = dr("第一列")
        fdr("第二列") = dr("第二列")
    End If
    Dim ffdr As DataRow = DataTables("表C").Find("第一列 = '" & dr("第一列") & "' and 第二列 = '" & dr("第二列") & "'")
    If ffdr IsNot Nothing Then
        fdr("第三列") = dr("第三列")
    End If
Next

 看4楼。上传的例子，请弄成foxtable的项目。

 单独做个按钮运行。

 

http://www.foxtable.com/help/topics/0213.htm

 

上传你做的项目或贴出你写的代码

     

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

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

 看17楼

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楼啊，你有认真看么？整个帖子，重新看一遍啊

 高速导入或者高速合并