Dim dt1 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("", "_Sortkey") For Each cdr As DataRow In dt1.Select("第一列 = '" & dr("第二列") & "'") cdr("第三列") = "有重复" dr("第三列") = "有重复" NextNext
加好友 
发短信
Post By：2015/5/27 15:10:00 [显示全部帖子]
