以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态合成表达式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40342)

--  作者:comnets
--  发布时间:2013/9/16 9:58:00
--  动态合成表达式
承蒙BIN的指教,下面的代码:

表A筛选条件:B列=B同时C列等于控件D的值。
Tables("A").Filter ="B列=\'B\' and C列=\'" & forms("窗口名").controls("D").TExt & "\'"

现在能做到控件控件D有内容的时候可以筛选成功,但是控件D没有内容(nothing)的时候就筛选不成功,一条也不出来。怎样能让D没有内容的时候筛选到C列没有内容的行?



--  作者:Bin
--  发布时间:2013/9/16 10:06:00
--  
先判断一下空间是否有值 再拼接不一样的条件

dim s as string = forms("窗口名").controls("D").TExt
if s="" then
     Tables("A").Filter ="B列=\'B\' and C列 is null"
else
    Tables("A").Filter ="B列=\'B\' and C列=\'" & s & "\'"
end if

--  作者:comnets
--  发布时间:2013/9/16 11:00:00
--  
图片点击可在新窗口打开查看