以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  去重复  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53166)
--  作者：lshshlxsh
--  发布时间：2014/7/1 14:31:00
--  去重复

Dim Cols1() As String = {"第一列","第二列","第三列"}
Dim Cols2() As String = {"第一列","第二列","第三列"}
For Each dr1 As DataRow In DataTables("表A").Select("")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

 

请问这段怎么出重复
--  作者：Bin
--  发布时间：2014/7/1 14:36:00
--  
Dim Cols1() As String = {"第一列","第二列","第三列"}
Dim Cols2() As String = {"第一列","第二列","第三列"}
For Each dr1 As DataRow In DataTables("表A").Select("")
    Dim dr2 As DataRow = DataTables("表B").find("第一列=\'" & dr1("第一列") & "\' and 第二列=\'" & dr1("第而列") & "\'  and 第三列=\'" & dr1("第三列") & "\'")
    if dr2 is nothing then
     dr2 =DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
    end if
Next
--  作者：有点甜
--  发布时间：2014/7/1 14:36:00
--  
Dim Cols1() As String = {"第一列","第二列","第三列"}
Dim Cols2() As String = {"第一列","第二列","第三列"}
For Each dr1 As DataRow In DataTables("表A").Select("")
    Dim dr2 As DataRow = DataTables("表B").Find("第一列 = \'" & dr1("第一列") &  "\' and 第二列 = \'" & dr1("第二列") & "\' and 第三列 = \'" & dr1("第三列") & "\'")
    If dr2 Is Nothing Then
        dr2 = DataTables("表B").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    End If
Next