主题：如何求某表中二列的唯一值？

 做一个按钮，写入代码

For Each ary() As String In DataTables("表A").GetValues("第一列|第二列", "第一列 is not null and 第二列 is not null")
    Dim ndr As DataRow = DataTables("表B").AddNew
    ndr("第一列") = ary(0)
    ndr("第二列") = ary(1)
Next