主题：感谢狐表软件

 这个意思？

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

 最后排一下就好

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

Tables("表C").Sort = "仓库管理员"