- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 超高难度~~如何引用多个表的逻辑列和日期列中的数据赋值到窗口的文本框中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75999)
-- 发布时间：2015/10/19 17:53:00
-- 超高难度~~如何引用多个表的逻辑列和日期列中的数据赋值到窗口的文本框中
如何引用多个表的逻辑列和日期列中的数据赋值到窗口的文本框中？？
例如：从客户表A和客户表B中各自筛选处理列和录入日期列，然后把筛选到的数据直接赋值到文本框并排序显示出来，而且要先点击已处理按钮再赋值到文本框！
请狐仙们赐教~~实在太难了！！
此主题相关图片如下：qq截图20151019175137.jpg
[此贴子已经被作者于2015/10/19 17:53:35编辑过]
-- 发布时间：2015/10/19 17:57:00
--
1、为什么不直接放表控件，用查询表？
2、上传例子。
-- 发布时间：2015/10/20 10:35:00
--
袍哥，我做的这个窗口要保存的，保存后文本框内容要在窗口表里看到呀！不排序也行，只要能显示到文本框就行，帮助里没这例子呀！
[此贴子已经被作者于2015/10/20 10:36:11编辑过]
-- 发布时间：2015/10/20 10:36:00
--
上传例子
-- 发布时间：2015/10/20 22:35:00
-- 回复：（大红袍）上传例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
希望狐爸们能指点迷津啦~~急！我用2014试用版做的
[此贴子已经被作者于2015/10/20 22:34:56编辑过]
-- 发布时间：2015/10/20 22:43:00
--
已处理
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
-- 发布时间：2015/10/21 9:16:00
-- 回复：（大红袍）已处理 Dim t1 As Table = ...
袍哥太强大了，我顶礼膜拜！