以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 帮忙修改筛选命令  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55741)

--  作者:wumingrong1
--  发布时间:2014/8/22 11:53:00
--  [求助] 帮忙修改筛选命令
如果我想实现筛选当 机房名称相同 或者 机房名称为空时的数据

Dim t As Table = Tables("机房消防器材清单表")
With Tables("机房消防器材登记表")
    If .Current Is Nothing Then
        t.Filter = "False"
   Else
t.Filter = "机房名称 = \'" & .Current("机房名称") & "\' Or 机房名称 = \'\'"

 End If
[此贴子已经被作者于2014-8-22 14:55:57编辑过]

--  作者:Bin
--  发布时间:2014/8/22 11:55:00
--  
你得说出你的需求,才能给你改啊
--  作者:wumingrong1
--  发布时间:2014/8/22 15:07:00
--  
OK啦:t.Filter = "机房名称 = \'" & .Current("机房名称") & "\' Or 机房名称 =机房名称 Is null  "