以文本方式查看主题

-  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
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:002.jpg
图片点击可在新窗口打开查看


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:fox (1).table





表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
--  
问下 表之间没关联的话 可以用的 关联之后 不给用了 

我上传了 看下大神 这种的怎么办啊
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:fox (1).table


--  作者:大红袍
--  发布时间:2015/10/14 20:25:00
--  
什么不给用啊,3楼的代码都执行啊