以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]拼接筛选字符串  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=166078)

--  作者:天一生水
--  发布时间:2021/5/17 16:16:00
--  [求助]拼接筛选字符串
老师好!
拼接3个筛选字符串,第一个里面包含“or”,其他都是“and”,这种拼接应该怎么办?
谢谢!

\'旧存条件1
Dim Filter3 As String = "1=1"
Dim y As String = e.Form.Controls("CheckedComboBox年度").text
If y <> "" Then
Dim dt1 As New Date(CInt(y), 1, 1)
Dim dt2 As New Date(CInt(y), 12, 31)
Filter3  &= " and 立案日期 < \'" & dt1 & "\'  And 结案日期 >= \'" & dt1 & "\' Or 立案日期 < \'" & dt1 & "\'  And 结案日期 Is Null"   ’去年收案,今年结案或未结的
End If

\'条件2
Dim Filter0 As String = "1=1"
With e.Form.Controls("CheckedComboBox地区")
    If .Value IsNot Nothing Then
        Filter0 &= " and 地区 in (\'" & .Text.Replace(",", "\',\'")  & "\')"
    End If
End With

\'条件3
Dim Filter00 As String = "1=1"
With e.Form.Controls("CheckedComboBox审判程序")
    If .Value IsNot Nothing Then
        Filter00 &= " and 审判程序 in (\'" & .Text.Replace(",", "\',\'")  & "\')"
    End If
End With


Filter = Filter3 & Filter0 & Filter00----?


--  作者:有点蓝
--  发布时间:2021/5/17 16:31:00
--  
Filter3  &= " and (立案日期 < \'" & dt1 & "\'  And 结案日期 >= \'" & dt1 & "\' Or 立案日期 < \'" & dt1 & "\'  And 结案日期 Is Null)"