Foxtable(狐表)用户栏目专家坐堂 → [求助]页面集合固定显示内容


  共有4939人关注过本帖树形打印复制链接

主题:[求助]页面集合固定显示内容

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/2 15:05:00 [显示全部帖子]

提示给多个表设置条件不就行了

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/2 15:39:00 [显示全部帖子]

图片点击可在新窗口打开查看查询按钮呀

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/2 15:55:00 [显示全部帖子]

那就不要放到集合页面里,放到集合控件之外

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/2 16:52:00 [显示全部帖子]

控件放在哪里,对查询结果没有影响的吧。如果查询不到就是没有数据呀

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/2 17:15:00 [显示全部帖子]

这个代码本来就是先查第一页,再获取第一个表查询结果的单号,来对应查询其它表数据。看懂代码自行扩展

 回到顶部