以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关联表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79949) |
-- 作者:seal51 -- 发布时间:2016/1/12 23:54:00 -- [求助]关联表 关联表做个一个模糊查询,全部的代码如下:
Dim mhcx1 As WinForm.TextBox = e.Form.Controls("模糊查询")
Tables("组装单.组装明细单").Filter = "组装图号 = \'" & Tables("组装单").Current("组装图号") & "\'"
如何更改呢
![]() ![]() |
-- 作者:Hyphen -- 发布时间:2016/1/13 8:21:00 -- 有什么问题,要达到什么效果,描述清楚啊。 |
-- 作者:大红袍 -- 发布时间:2016/1/13 9:25:00 -- Dim mhcx1 As WinForm.TextBox = e.Form.Controls("模糊查询")
Dim filter As String = "1=2" |
-- 作者:seal51 -- 发布时间:2016/1/13 12:32:00 -- 谢谢老师, OK了 |
-- 作者:seal51 -- 发布时间:2016/1/13 15:14:00 -- 还有一个问题, 关联表《组装单.组装明细单》有一列为产品ID 在一楼付图里有个查询价格按钮, 点击打开一个窗口,里面有个组装明细表的副本表, 如何只能筛选出关联表《组装单.组装明细单》当前产品ID的所有数据,写了一个代码如下, 如果这个关联表有多个行, 只能筛选出第一行的数据, 其他行的筛选不能来
比如关联表有三行,CP001, CP002, CP003, 选择CP001打开窗口可以筛选出只有CP001的数据, 但是选择CP002, CP003, 显示的还是CP001的数据
Tables("相关组装_组装明细表").Filter = "产品ID = \'" & Tables("组装单.组装明细单").Current("产品ID") & "\'" [此贴子已经被作者于2016/1/13 15:37:23编辑过]
|
-- 作者:seal51 -- 发布时间:2016/1/13 17:39:00 -- 我顶一下,等待老师回复! |
-- 作者:Hyphen -- 发布时间:2016/1/13 17:54:00 -- 没有测试出这种情况,上传例子看看 是不是窗口打开后,关联表数据重新刷新了
|
-- 作者:大红袍 -- 发布时间:2016/1/16 12:12:00 -- msgbox看一下你的内容,注意表名不要写错。
msgbox(Tables("组装单.组装明细单").Current("产品ID")) |