6,108
社区成员
发帖
与我相关
我的任务
分享
Function MatchPriceRange(ParamValue As String, FieldValue As Decimal) As Decimal
Select Case ParamValue
Case "Less than 500"
If FieldValue < 500 Then
Return FieldValue
End If
Case "500 to 1000"
If FieldValue >= 500 And FieldValue < 1000 Then
Return FieldValue
End If
Case "1000 to 5000"
If FieldValue >= 1000 And FieldValue < 5000 Then
Return FieldValue
End If
Case "5000 and Higher"
If FieldValue >= 5000 Then
Return FieldValue
End If
Case "All"
Return FieldValue
End Select
End Function