以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75739) |
||||
-- 作者:w158330648 -- 发布时间:2015/10/14 1:21:00 -- [求助] 此主题相关图片如下:001.jpg 表A里面的产品 不在表B 指定公司 里面的产品 自动显示出来 代码怎么写 求教 比如 输入 CCC公司 按查找 表A会筛选出 CCC公司没有的产品 [此贴子已经被作者于2015/10/14 1:29:13编辑过]
|
||||
-- 作者:Hyphen -- 发布时间:2015/10/14 8:58:00 -- Dim dr As DataRow = DataTables("表B").Find("公司 = \'" & e.Form.Controls("TextBox1").Text & "\'") Dim filter As String If dr IsNot Nothing AndAlso dr.IsNull("产品") = False Then filter = "产品列 <> \'" & dr("产品") & "\'" End If Tables("表A").Filter = filter |
||||
-- 作者:大红袍 -- 发布时间:2015/10/14 9:13:00 -- Tables("表A").Filter = "产品列 not in (\'" & DataTables("表B").GetComboListString("产品", "公司 = \'" & e.Form.Controls("TextBox1").Text & "\'").replace("|", "\',\'") & "\')" |
||||
-- 作者:w158330648 -- 发布时间:2015/10/14 20:06:00 -- 问下 表之间没关联的话 可以用的 关联之后 不给用了 我上传了 看下大神 这种的怎么办啊
|
||||
-- 作者:大红袍 -- 发布时间:2015/10/14 20:25:00 -- 什么不给用啊,3楼的代码都执行啊 |