我想实现订单量小于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倍

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

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

yetle

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

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

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

Post By：2018/4/6 17:21:00 [只看该作者]

If Tables("报价单").Current("订单量") < 1500 Then

Tables("报价单").Current("人工价") = Tables("报价单").Current("基础人工价") * 1.4

ElseIf 1500< Tables("报价单").Current("订单量") < 3000 Then

Tables("报价单").Current("人工价") = Tables("报价单").Current("基础人工价") * 1.2

ElseIf 3000< Tables("订单量").Current("订单量") < 4000 Then

Tables("报价单").Current("人工价") = Tables("报价单").Current("基础人工价") * 1.1

Else

Tables("报价单").Current("人工价") = Tables("报价单").Current("基础人工价")

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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倍