以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  模拟关联后，筛选查询如何做  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133397)
--  作者：yfy13338431925
--  发布时间：2019/4/13 16:33:00
--  模拟关联后，筛选查询如何做

甜哥，蓝老师，按照帮助文件做了一个模拟关联实例，但是加入查询后，没有查询结果，你帮我看看。谢谢老大了

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目46.zip
--  作者：有点蓝
--  发布时间：2019/4/13 16:51:00
--  
看看：http://www.foxtable.com/webhelp/scr/1906.htm

Dim kh As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Tables("窗口1_Table1").Filter="客户编号 = " & kh.Text
--  作者：yfy13338431925
--  发布时间：2019/4/13 20:26:00
--  
蓝老师，筛选可以了，筛选出来后的表好像不能继续添加行
--  作者：有点甜
--  发布时间：2019/4/14 11:14:00
--  
以下是引用yfy13338431925在2019/4/13 20:26:00的发言：
蓝老师，筛选可以了，筛选出来后的表好像不能继续添加行

 

改成这样

 

Dim kh As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim ids = Tables("窗口1_Table1").DataTable.GetComboListString("_Identify", " not 客户编号 = " & kh.Text & " or 客户编号 is null")
Tables("窗口1_Table1").Filter="_Identify not in (" & ids.replace("|", ",") & ")"