主题：想在这段代码前价格判断 ，如果数据被复制过，就不执行

 叫你加一列判断。

For Each dr1 As DataRow In DataTables("product").Select("[newnum]<>0")
   
    If DataTables("kucun").Find("某列 = '" & dr1("某列") & "'") Is Nothing Then
        Dim dr2 As DataRow = DataTables("kucun").AddNew()
       
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
           
        Next
       
    End If
Next