- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关联表逻辑列筛选 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148039)
-- 发布时间：2020/3/30 1:07:00
-- [求助]关联表逻辑列筛选
表A与表B是关联表；逻辑列也在表B；有一窗口按钮[Button9]在表A。
求按钮代码：在表A中，筛选出关联表B中的逻辑列为True的行（指关联的表A的行）。没有相关数据行就提示“没有数据显示行”
-- 发布时间：2020/3/30 8:59:00
--
dim r as row = tables("表A").current
tables("表B").filter = "关联列=\'" & r("关联列") & "\' and 逻辑列=True"
-- 发布时间：2020/3/30 10:56:00
--
感谢蓝老师的帮助！可是没有达到想要的效果。
其实简单点说就是筛选出表A的行，但条件是表B的某列的值。
-- 发布时间：2020/3/30 11:03:00
--
Dim str As String = DataTables("表B").GetComboListString("编号","逻辑列=True")
tables("表A").filter ="编号 in (\'" & str.replace("|","\',\'") & "\')"
-- 发布时间：2020/4/1 16:05:00
--
有点蓝老师：上面的代码没有达到目的。我放了一个实例，就是要在窗口中点击{筛选开始}按钮后，在表A中筛选出关联表C的[第十列]为True的行。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2020/4/1 16:12:00
--
有区别吗，改下列名而已
Dim str As String = DataTables("表C").GetComboListString("序号","第十列=True")
Tables("表A").filter ="_Identify in (" & str.replace("|",",") & ")"
-- 发布时间：2020/4/1 16:27:00
--
感谢！