我想实现在窗口中的Label中可以分行显示结果,如何实现?谢谢。窗口中的按钮有我的代码,可以在命令窗口中看到我想输出的结果。
'''
Dim ts As List(of String)
ts = DataTables("表A").GetValues("第一列")
Dim t2s As List(of String)
t2s = DataTables("表B").GetValues("第二列")
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)("第一列"))
End If
Next
Next