Dim names1 As List(Of String) = DataTables("表").GetUniqueValues("", "列A")
Dim names2 As List(Of String) = DataTables("表").GetUniqueValues("", "列B")
Dim names3 As New List(Of String)
For Each name As String In names1
If Not names2.Contains(name) Then
names3.add(name)
End If
Next
For i As Integer = 0 To names3.Count - 1
Tables("表").Rows(i)("列C") = names3(i)
Next
[此贴子已经被作者于2012-9-25 15:57:31编辑过]