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"
If area1 > "" Then
Filter = "一级区域 = '" & area1 & "'"
End If
If area > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Dim Values() As String
Values = area.split(",")
Dim f2 As String = " ( 1=2 "
For Each s As String In Values
f2 = f2 & " or 面积 BETWEEN " & s.Replace("-"," and ")
Next
Filter = Filter & f2 & " ) "
End If
If jg > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Dim Values() As String
Values = jg.split(",")
Dim f2 As String = " ( 1=2 "
For Each s As String In Values
f2 = f2 & " or 价格 BETWEEN " & s.Replace("-"," and ")
Next
Filter = Filter & f2 & " ) "
End If
Output.Show(filter)
加好友 
发短信
Post By：2019/8/26 20:14:00 [显示全部帖子]
