以文本方式查看主题

-  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=162128)
--  作者：813774740123
--  发布时间：2021/4/6 17:31:00
--  [求助]如何用复选框控件实现筛选呢
一个table中有“政治面貌”列，有“正式党员”“预备党员”“流动党员”“积极分子”四个值，
现在想弄一个复选框筛选，单选目前会，多选怎么实现呢
--  作者：有点蓝
--  发布时间：2021/4/6 20:10:00
--  
dim s as string
with e.Form.Controls("复选框1")
if .Checked then
s = s & ",\'" & .text & "\'"
end if
end with
with e.Form.Controls("复选框2")
if .Checked then
s = s & ",\'" & .text & "\'"
end if
end with
s =s.trim(",")
tables("A").filter = "政治面貌 in (" & s & ")"
--  作者：813774740123
--  发布时间：2021/4/7 10:46:00
--  未将对象引用设置到对象的实例。
还有一个问题，就是当我一个复选框都不选的话，会显示“未将对象引用设置到对象的实例。”，我加了一个判断，如果s是空值的话就显示全部，但是仍是“未将对象引用设置到对象的实例。”
If s Is Nothing
    Tables("员工信息_党员管理Table").filter = ""
Else
    Tables("员工信息_党员管理Table").filter = "政治面貌 in (" & s & ")"
End If”
--  作者：有点蓝
--  发布时间：2021/4/7 10:57:00
--  
dim s as string
改为
dim s as string = “”

If s =""
    Tables("员工信息_党员管理Table").filter = ""
Else
    Tables("员工信息_党员管理Table").filter = "政治面貌 in (" & s & ")"
End If