根据帮助里面,做一个查询然后标记运行不了 Post By:2023/6/7 16:05:00 [只看该作者]
Dim lst1 As New
List(of
DataRow) Dim lst2 AS New
List(of
DataRow) For Each dr As DataRow In DataTables("表A").DataRows If
DataTables("表A").Find("第二列 = "
&
dr("第一列")) Is Nothing Then lst1.Add(dr) Else
lst2.Add(dr) End If Next For Each dr As DataRow In lst1
dr("第三列") = True Next For Each dr As DataRow In lst2 dr("第三列") = False Next