老师，请问下这个条件的连接要怎么写，就是
1，0-90,110-120,140-160这个条件只要满足其中一个就可以，
2，10000-20000,50000-70000这个条件只要满足其中一个就可以
3，area1，area ，jg 最后这3个条件要同时满足
Dim Filter As String
Dim area1 As String = "广东省"
Dim area As String = "0-90,110-120,140-160" '面积在0-90可以,或者110-120,或者140-160
Dim jg As String = "10000-20000,50000-70000"
Dim mjj As String
Dim jgg As String
If area1 > "" Then
If Filter > "" Then
Filter = Filter & " Andalso "
End If
Filter = Filter & "一级区域 = '" & area1 & "'"
End If
If area > "" Then
If Filter > "" Then
Filter = Filter & " Andalso "
End If
Dim Values() As String
Values = area.split(",")
For Index As Integer = 0 To Values.Length - 1
Dim mjs() As String
mjs = Values(Index).split("-")
If mjj > "" Then
mjj = mjj & " orelse " & "面积 >= '" & mjs(0) & "' Andalso 面积 <= '" & mjs(1)
Else
mjj = "面积 >= '" & mjs(0) & "' Andalso 面积 <= '" & mjs(1)
End If
Next
Filter = Filter & mjj
End If
If jg > "" Then
If Filter > "" Then
Filter = Filter & " Andalso "
End If
Dim Values() As String
Values = jg.split(",")
For Index As Integer = 0 To Values.Length - 1
Dim mjs() As String
mjs = Values(Index).split("-")
If jgg > "" Then
jgg = jgg & " orelse " & "价格 >= '" & mjs(0) & "' Andalso 价格 <= '" & mjs(1)
Else
jgg = "价格 >= '" & mjs(0) & "' Andalso 价格 <= '" & mjs(1)
End If
Next
Filter = Filter & jgg
End If
Output.Show(filter)
加好友 
发短信
Post By：2019/8/26 18:43:00 [只看该作者]
