有时，我们会用到Select Case 语句判断多个条件的值，像这样固定的条件

        Select Case  XXX
        Case Is >= 30
            A = "K"
        Case 20 To 29
           A = "A"
        Case 10 To 19
           A = "B"
        Case 1 To 9
           A= "C"
        End Select
但很多的实际运用中，条件会发生变化呢？我们希望把条件范围保存到表中，可以去做修改，然后按条件去取值，不需要每次都去修改代码，示例如下。

演   示:

主要代码:

    Dim strSQL As String
    Dim strWhere As String
    Dim rst As Object ' DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("条件表")
    If rst.RecordCount > 0 Then rst.MoveFirst
    Do Until rst.EOF
        If InStrRev(rst!条件, "X") > 0 Then
            strWhere = Replace(rst!条件, "X", Me.条件)
            If DCount("*", "条件表", strWhere) > 0 Then
                Me.结果 = rst!结果
            End If
        End If
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing

附件下载:

点击下载此附件