以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教如何避免如下错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80324)

--  作者:hbhb
--  发布时间:2016/1/20 17:13:00
--  请教如何避免如下错误
大师:好!请问如何避免如下代码错误?
 For Each a1 As String In mxkm
                        If filter = "" Then
                            filter = "dttzflmxb33 like \'" & a1 & "*\'"
                        Else
                            filter = filter & " or dttzflmxb33 like \'" & a1 & "*\'"
                        End If
  Next

jfje = DataTables("dttzflmxb").Compute("sum(dttzflmxb6)"," dttzflmxb33 is not null" & " and (" & filter & ")" )

当filter为空时,就会出现错误。如果不想通过判断filter是否为空,如何改写上面的红色部分代码?



--  作者:大红袍
--  发布时间:2016/1/20 17:15:00
--  

filter 不弄成空不就行了?

 

If filter = nothing Then filter = "1=1"


--  作者:hbhb
--  发布时间:2016/1/20 17:37:00
--  
那么,此时是否条件放宽了?
--  作者:大红袍
--  发布时间:2016/1/20 17:44:00
--  
没有放宽,1=1跟不写是一个意思。
--  作者:hbhb
--  发布时间:2016/1/20 18:00:00
--  
是不是就是没有符合条件,统计结果为0
--  作者:大红袍
--  发布时间:2016/1/20 18:14:00
--  
返回的是nothing,你也可以理解成0