主题：超高难度~~如何引用多个表的逻辑列和日期列中的数据赋值到窗口的文本框中

1、为什么不直接放表控件，用查询表？

2、上传例子。

上传例子

已处理

Dim t1 As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
Dim str As String = ""
For Each r As Row In t1.Rows
    If r("处理") = True Then
        str &= r("编号") & vbtab & r("录入日期") & vbcrlf
    End If
Next
For Each r As Row In t2.Rows
    If r("处理") = True Then
        str &= r("编号") & vbtab & r("录入日期") & vbcrlf
    End If
Next
e.Form.Controls("TextBox1").Text = str