【Access示例】条件保存在表中的判断取值方式-缪炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


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

发表时间:2018/11/2 8:52:57 评论(1) 浏览(601)  评论 | 加入收藏 | 复制
   
摘 要:条件保存在表中的判断取值方式
正 文:

有时,我们会用到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群(群号:198465573)
 
 相关文章
数据字段值区间转换示例\匹配成绩优良差、合格的示例,分段统计示例,...  【红尘如烟  2011/1/25】
【Access源码示例】日期区间段查询示例,开始日期至截止日期区段...  【麥田  2013/3/13】
【Access源码示例】按月份的日期区间段查询示例,开始月份至截止...  【麥田  2013/3/14】
【Access源码示例】日期区间段查询示例,开始日期至截止日期区段...  【麥田  2016/6/21】
日期区间中Sql写法(本周、本月、本年、上月)  【qq1985178585  2018/7/15】
【Access示例】根据区间获得区间内的数字  【姚泱  2018/8/26】
 
 访客评论
2018/11/2麥田
点赞

总记录:1篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

缪炜

文章分类

文章存档

友情链接