| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 查询其他表格 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59580) |
| -- 作者：yangwenghd -- 发布时间：2014/11/6 20:21:00 -- 查询其他表格 谢谢 帮忙看看 如果“基本信息_在职企业号”在另外一个表应该怎么该啊，比如表B Dim Filter As String With e.Form.Controls("TextBox10") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "基本信息_在职企业号 = \'" & .Value & "\'" \'此处内容自行修改 End If End With If Filter > "" Then Tables("企业档案窗口_Table5").Filter = Filter End If
|
| -- 作者：有点甜 -- 发布时间：2014/11/6 20:24:00 -- 1、可以两表建立关联，然后这个表引用表B的列；
2、或者用代码先查出相关的数据，再重新查询。 [此贴子已经被作者于2014-11-6 20:23:57编辑过]
|
| -- 作者：yangwenghd -- 发布时间：2014/11/6 22:35:00 -- 谢谢，可以直接改这一条吗？ 表示基本信息_在职企业号是表B的 也就是在TextBox10 输入数据 点击查询，把显示的内容显示到企业档案窗口_Table5 Filter = Filter & "基本信息_在职企业号 = \'" & .Value & "\'" \'此处内容自行修改 |
| -- 作者：有点甜 -- 发布时间：2014/11/6 22:38:00 -- Filter = Filter & " 关联列 in (\'" & DataTables("表B").GetComboListString("关联列", "基本信息_在职企业号 = \'" & "" & "\'").Replace("|", "\',\'") & "\')" \'此处内容自行修改 |
| -- 作者：yangwenghd -- 发布时间：2014/11/29 11:38:00 -- 感谢 感谢 能帮我看看吗？ 写入代码后没有反应 Dim Filter As String With e.Form.Controls("TextBox10") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & " 型号 In (\'" & DataTables("价格表").GetComboListString("型号", "型号 = \'" & "" & "\'").Replace("|", "\',\'") & "\')" \'此处内容自行修改 End If End With If Filter > "" Then Tables("企业档案窗口_Table5").Filter = Filter End If |
| -- 作者：逛逛 -- 发布时间：2014/11/29 11:57:00 -- 把 Filter 弹出来看看
http://www.foxtable.com/help/index.html?n=0393.htm |
| -- 作者：yangwenghd -- 发布时间：2014/11/29 12:07:00 -- 哦 谢谢 如果是模糊搜索应该怎么该啊！感谢 感谢 |
| -- 作者：逛逛 -- 发布时间：2014/11/29 12:12:00 -- 用 like
|
| -- 作者：狐狸爸爸 -- 发布时间：2014/11/29 15:01:00 -- 建议看看： http://www.foxtable.com/help/topics/0102.htm http://www.foxtable.com/help/topics/1647.htm http://www.foxtable.com/help/topics/1534.htm
|