主题：[求助] 判断重复值的问题

 如下代码

Dim flag As Boolean = True
For i As Integer = 1 To Tables("表1").GetCheckedRows.count - 1
    If Tables("表1").GetCheckedRows(i-1)("c") <> Tables("表1").GetCheckedRows(i)("c") Then
        flag = False
    End If
Next
If flag Then
    Dim nr As Row = Tables("表2").AddNew
    nr("第一列") = Tables("表1").GetCheckedRows(0)("c")
End If