以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我想实现订单量小于1500，人工价是1.4倍，1500-3000是1.2倍，3000-4000是1.1倍，大于4000没有倍数，这样写好像有问题，我订单量是5000也是1.2倍  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117106)
--  作者：yetle
--  发布时间：2018/4/6 17:21:00
--  我想实现订单量小于1500，人工价是1.4倍，1500-3000是1.2倍，3000-4000是1.1倍，大于4000没有倍数，这样写好像有问题，我订单量是5000也是1.2倍
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
--  作者：有点甜
--  发布时间：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