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

如何引用多个表的逻辑列和日期列中的数据赋值到窗口的文本框中？？

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

 

2、上传例子。

袍哥，我做的这个窗口要保存的，保存后文本框内容要在窗口表里看到呀！不排序也行，只要能显示到文本框就行，帮助里没这例子呀！

上传例子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

已处理

 

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

袍哥太强大了，我顶礼膜拜！