'''
Dim ts As List(of String)
ts = DataTables("表A").GetValues("第一列")
Dim t2s As List(of String)
t2s = DataTables("表B").GetValues("第二列")
Dim qq As String
For Each t As String In ts
For a As Integer = 0 To t2s.Count-1
If t = t2s(a) Then
Dim dr As DataRow
dr = DataTables("表B").Find("第二列 = '" & t2s(a) & "'")
Dim r As Integer
r = Tables("表B").FindRow(dr)
If r>=0 Then
Tables("表B").Position = r
End If
Output.Show("Find " & t & "-" &Tables("表B").Rows(r)("第一列"))
qq += "Find " & t & "-" &Tables("表B").Rows(r)("第一列") & vbcrlf
End If
Next
Next
Dim l As WinForm.Label = Forms("窗口1").Controls("Label1")
l.Text = qq