Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

【Access示例】条件保存在表中的判断取值方式

时 间:2018-11-02 08:52:57
作 者:缪炜   ID:24010  城市:江阴
摘 要:条件保存在表中的判断取值方式
正 文:

有时,我们会用到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


附件下载:

点击下载此附件



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助