以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]页面集合固定显示内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144907)

--  作者:w823087877
--  发布时间:2020/1/2 15:00:00
--  [求助]页面集合固定显示内容
我有三张表格,对应窗口设计里面的页面集合有三个页面,我希望添加一个查询选项,因为每一个表格里面都有一个采购订单号,所以相当于三个表是关联的,我希望在每一个集合页面里的查询选项都是固定的,然后我查询了一个表格的数据在分别的不同页面显示相应的数据。不知道我说的是不是能理解。谢谢大婶们。
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200102145052.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200102145058.jpg
图片点击可在新窗口打开查看


--  作者:w823087877
--  发布时间:2020/1/2 15:01:00
--  补充帖子中缺失的图片
补充帖子中缺失的图片
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200102145102.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/1/2 15:01:49编辑过]

--  作者:有点蓝
--  发布时间:2020/1/2 15:05:00
--  
提示给多个表设置条件不就行了

dim filter as string = "某某条件"
tables("表A").filter = filter 
tables("表B").filter = filter 


--  作者:w823087877
--  发布时间:2020/1/2 15:20:00
--  
我可能描述的不清楚,我想在三个页面结合里面都拥有同一个查询框,我把文件发上来,大神帮我看一看。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
能不能有一个什么即时联系的方式啊,这个很不方便啊。

--  作者:有点蓝
--  发布时间:2020/1/2 15:30:00
--  
Dim idx As Integer = Tables("经法合同").FindRow(e.Form.Controls("ComboBox9").text & "=\'" & e.Form.Controls("TextBox17").text & "\'")
If idx >=0 Then
    Tables("经法合同").Position = idx
    Dim r As Row = Tables("经法合同").Current
    idx = Tables("多维系统").FindRow( "ERP采购订单=\'" & r("ERP采购订单号") & "\'")
    If idx >=0 Then
        Tables("多维系统").Position = idx
    End If
    idx = Tables("ERP系统").FindRow( "订单编号=\'" & r("ERP采购订单号") & "\'")
    If idx >=0 Then
        Tables("ERP系统").Position = idx
    End If
End If

--  作者:w823087877
--  发布时间:2020/1/2 15:37:00
--  
能告知我放在什么事件里吗?我是小白啊,本来看了一段时间教程了,后来好久不看都忘完了。
[此贴子已经被作者于2020/1/2 15:39:18编辑过]

--  作者:有点蓝
--  发布时间:2020/1/2 15:39:00
--  
图片点击可在新窗口打开查看查询按钮呀
--  作者:w823087877
--  发布时间:2020/1/2 15:46:00
--  
大大,还得找您啊,能不能让我那个查询那一块的东西在三个集合页面都显示啊?
--  作者:有点蓝
--  发布时间:2020/1/2 15:55:00
--  
那就不要放到集合页面里,放到集合控件之外
--  作者:w823087877
--  发布时间:2020/1/2 16:49:00
--  
大大还在不在线?我试着不放在集合里,不知道是我调整的有问题还是语句有问题,我用这个搜索查询第二第三页的数据时提示没有该数据。