判断datatable中的数据是否有重复数据

rowcount= DataTable.GetSheet("Action1").getrowcount

For i = 1 To rowcount Step 1
    DataTable.SetCurrentRow i
    data1=DataTable("A","Action1")
    For j = i+1 To rowcount Step 1
        DataTable.SetCurrentRow j
        data2=DataTable("A","Action1")
        If data2=data1 Then
            MsgBox data1&"="&data2
        End If
    Next
Next