Dim dt As DataTable = DataTables("表A") For Each c1 As String In dt.GetValues("第一列", "第一列 is not null") If dt.GetValues("第二列", "第一列 = '" & c1 & "' and 第二列 is not null").count >= 2 Then If dt.GetValues("第三列", "第一列 = '" & c1 & "' and 第三列 is not null").count >= 2 Then msgbox(c1) End If End If Next
加好友 
发短信
Post By：2014/12/30 21:11:00 [只看该作者]
