select方法无法去除重复。
Dim drs As List(Of DataRow) = DataTables("A表").Select("勾选=false")Dim ls As new List(of String)For Each dr As DataRow In drs If ls.contains(dr("第一列")) Then ls.add(dr("第一列")) End IfNext