以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]固定成果编号才夸表行筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153624)

--  作者:miaoqingqing
--  发布时间:2020/8/17 17:19:00
--  [求助]固定成果编号才夸表行筛选
Dim t As Table = Tables("计划台账")
With Tables("成果台账")
    If .Current Is Nothing  AndAlso .Current("固定成果编号") = False Then 添加逻辑列是才执行下面代码求助
            t.Filter = "False"
        Else
            Dim s = DataTables("中间表").GetComboListString("计划编号", "成果编号 = \'" & .Current("成果编号") & "\'").replace("|", "\',\'")
            t.Filter = "计划编号 in (\'" & iif(s>"", s, "-1") & "\')"
    End If
End With

--  作者:有点蓝
--  发布时间:2020/8/17 17:32:00
--  
什么意思?没看懂
--  作者:miaoqingqing
--  发布时间:2020/8/17 17:35:00
--  回复:(有点蓝)什么意思?没看懂
AndAlso .Current("固定成果编号") = False Then 
1楼代码添加上面逻辑条件无效,求助,逻辑列 勾选时,是,才行筛选
[此贴子已经被作者于2020/8/17 18:15:07编辑过]

--  作者:有点蓝
--  发布时间:2020/8/17 20:07:00
--  
If .Current Is Nothing  orelse .Current("固定成果编号") = False Then