- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么做 一个带判断的计算啊？？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51678)
-- 发布时间：2014/5/31 13:00:00
-- 怎么做 一个带判断的计算啊？？？
Dim c As DataCol = DataTables("财务科相关").DataCols("实收工资") Dim d As DataCol = DataTables("财务科相关").DataCols("应收提成") Dim a As String = c.name Dim b As String = d.name For Each dr As DataRow In DataTables("财务科相关").DataRows If dr("是否会员") = True Then If dr("a") <= 39 Then dr("b") = 0 ElseIf dr("a") > 39 And dr("a") <= 59 Then dr("b") = dr("a") * 0.05 ElseIf dr("a") > 59 And dr("a") <= 99 Then dr("b") = 3 + (dr("a") - 60) * 0.1 ElseIf dr("a") > 99 Then dr("b") = 7 + (dr("a") - 100) * 0.2 End If Else If dr("a") <= 39 Then dr("b") = 0 ElseIf dr("a") > 39 And dr("a") <= 59 Then dr("b") = dr("a") * 0.1 ElseIf dr("a") > 59 And dr("a") <= 99 Then dr("b") = 6 + (dr("a") - 60) * 0.15 ElseIf dr("a") > 99 Then dr("b") = 12 + (dr("a") - 100) * 0.2 End If End If Next 我写的相关代码如上，附图如下，请大师帮忙！！！！  此主题相关图片如下：无标题.jpg |
-- 发布时间：2014/6/3 8:14:00
--
呵呵，我不明白你的问题。
-- 发布时间：2014/6/3 9:14:00
--
说明要实现的判断逻辑，再说明一下现在哪里会出错。