Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > 源码示例

【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交流群 (群号:297018933)       access源码网店

最新评论 查看更多评论(1)

2018/11/2 9:16:27麥田
点赞

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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