主题：如何在实现Label中的显示，谢谢！

'''

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