Dim t2 As Table = e.form.Controls("Table1").TableDim ls As new List(Of String)For Each r2 As Row In t2.Rows Dim s = r2("列1") & "|" & r2("列2") If ls.contains(s) Then msgbox("重复") Exit For Else ls.add(s) End IfNext