我想实现订单量小于1500，人工价是1.4倍，1500-3000是1.2倍，3000-4000是1.1倍，大于4000没有倍数，这样写好像有问题，我订单量是5000也是1.2倍 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我想实现订单量小于1500，人工价是1.4倍，1500-3000是1.2倍，3000-4000是1.1倍，大于4000没有倍数，这样写好像有问题，我订单量是5000也是1.2倍

下一主题 >> << 上一主题

共有2620人关注过本帖树形打印复制链接主题：我想实现订单量小于1500，人工价是1.4倍，1500-3000是1.2倍，3000-4000是1.1倍，大于4000没有倍数，这样写好像有问题，我订单量是5000也是1.2倍

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/6 17:38:00 [显示全部帖子]

Dim cr As Row = Tables("报价单").Current
Dim v As Double = cr("订单量")

If v < 1500 Then
    cr("人工价") = cr("基础人工价") * 1.4
ElseIf    1500<=v AndAlso v < 3000 Then
    cr("人工价") = cr("基础人工价") * 1.2
ElseIf    3000<= v AndAlso v< 4000 Then
    cr("人工价") = cr("基础人工价") * 1.1
Else
    cr("人工价") = cr
End If

下一主题 >> << 上一主题

主题：我想实现订单量小于1500，人工价是1.4倍，1500-3000是1.2倍，3000-4000是1.1倍，大于4000没有倍数，这样写好像有问题，我订单量是5000也是1.2倍