以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 表间条件筛选命令 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73852) |
-- 作者:wumingrong1 -- 发布时间:2015/8/27 17:37:00 -- [求助] 表间条件筛选命令 有如下表间关联筛选公式如下: Dim t As Table = Tables("OLT设备端口密码表") With Tables("GPON口与分纤盒对应关系表") If .Current Is Nothing Then t.Filter = "False" Else t.Filter = " (机房名称 = \'" & .Current("机房名称") & "\' and 设备名称 = \'" & .Current("设备名称") & "\' and 设备端口 = \'" & .Current("设备端口") & "\' and 是否使用 = False ) or ( 机房名称 is null) " End If End With 如果我再增加了一个筛选条件,就会出现了其中【and 是否使用 = False】条件不生效的情况;请问我的命令哪里错啦? Dim t As Table = Tables("OLT设备端口密码表") With Tables("GPON口与分纤盒对应关系表") If .Current Is Nothing Then t.Filter = "False" Else t.Filter = " (机房名称 = \'" & .Current("机房名称") & "\' and 设备名称 = \'" & .Current("设备名称") & "\' and 设备端口 = \'" & .Current("设备端口") & "\' and 是否使用 = False ) or ( 机房名称 is null) or (分纤盒编号 like \'%" & .Current("分纤盒编号") & "%\') " End If End With |
-- 作者:Hyphen -- 发布时间:2015/8/27 17:46:00 -- like条件始终成立,或者like条件涵盖了是否使用为false的情况。查看你的数据 |
-- 作者:wumingrong1 -- 发布时间:2015/8/27 17:52:00 -- 那我该怎么改? |
-- 作者:大红袍 -- 发布时间:2015/8/27 18:22:00 -- 直接说你的逻辑。
t.Filter = " (机房名称 = \'" & .Current("机房名称") & "\' and 设备名称 = \'" & .Current("设备名称") & "\' and 设备端口 = \'" & .Current("设备端口") & "\' and 是否使用 = False ) or ( 机房名称 is null) or (分纤盒编号 like \'%" & .Current("分纤盒编号") & "%\' and 是否使用 = False) " [此贴子已经被作者于2015/8/27 18:22:27编辑过]
|