Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

求区间对应值

蒋巍 等级: 普通会员 积分:0 金币:0 来自:上海Access交流中心 发表于:2018-12-03 21:13:29   已结帖
楼主

批量求对应区域重量的价格,用access怎么得出啊






 

access培训  诚聘access开发人员

    蒋巍
      获得社区协助:请教问题(即发帖)6篇,其中获得解决的2篇;
      协助社区成员:协助他人(即回帖)0篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top

扫描下方工作人员的微信二维码加微信,邀您加入Access课堂微信群,进入一个技术交际圈:

网站工作人员微信

chinasa 等级:贵宾★★★★★ 积分:932 金币:120 来自:宁波Access交流中心 发表于2018/12/4 8:13:06 
1楼 得分: 0
价格: IIf(0<[重量] And [重量]<=.5,[a],IIf(.5<[重量] And [重量]<=1,[b],IIf(1<[重量] And [重量]<=2,[c],"")))

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)130篇,其中获得解决的128篇;
      协助社区成员:协助他人(即回帖)944篇,其中被设为【最佳答案】的249篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
仙来 等级:一星助教★ 积分:677 金币:2294 来自:池州Access交流中心 发表于2018/12/4 9:25:47 
2楼 得分: 0
http://www.accessoft.com/bbs/showtopic.asp?Id=30193

    希望我的回答能解决了您的问题,或者所附上的这些信息对您有所帮助!如有任何疑问或需要进一步帮助,请您直接在本站发贴,我们非常乐意帮助您解决问题!
    如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,以方便大家对那些正在等待解决的帖子给予关注!
    仙来  [协助社区成员回帖736篇,其中【最佳答案】236篇;发布技术文章49篇。]
    Access软件网助教团队 
    http://www.umvsoft.com
    如果您没有注册这个论坛,请单击下面的链接进行注册,与我在论坛进行交流:
    http://www.accessoft.com/reg/reg.asp?userid=30269
    本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。
网行者 等级:一星会员 积分:722 金币:4120 来自:江门Access交流中心 发表于2018/12/4 22:08:09 最佳答案
3楼 得分: 2

自定义函数ADO查找

Function getPrice(ByVal myFiled As String, ByVal Weight As Double) As Double
    On Error GoTo Err
    
    Dim rst As New ADODB.Recordset
   
    rst.Open "区域重量价格表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
    rst.MoveFirst
    Do Until rst.EOF
        If rst.Fields(0).Value = myFiled Then
            Select Case Weight
            Case 0 To 0.5
                getPrice = rst.Fields(1).Value
            Case 0.5 To 1
                getPrice = rst.Fields(2).Value
            Case 1 To 2
                getPrice = rst.Fields(3).Value
            Case Else
                getPrice = 0
            End Select
        End If
        rst.MoveNext
    Loop
    
    rst.Close: Set rst = Nothing
    
Exit_ERR:
    Exit Function
    
Err:
    MsgBox Err.Description
    Resume Exit_ERR

End Function


点击下载此附件




    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    网行者
      获得社区协助:请教问题(即发帖)5篇,其中获得解决的3篇;
      协助社区成员:协助他人(即回帖)554篇,其中被设为【最佳答案】的189篇;
      协助我们社区:发布技术文章103篇,邀请了28名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:3篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。