Foxtable(狐表)用户栏目专家坐堂 → 条件累加代码,求解说


  共有11294人关注过本帖树形打印复制链接

主题:条件累加代码,求解说

帅哥哟,离线,有人找我吗?
卟离卟弃
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
条件累加代码,求解说  发帖心情 Post By:2010/8/17 15:59:00 [显示全部帖子]

For i As Integer = Tables("表A").count-1 To 0 Step -1  
            Dim r As Row = Tables("表A").Rows(i)
            If  i = Tables("表A").count-1
                r("累计成本") = r("系数") * r("单价")
            Else
                If r("加工级别") <> Tables("表A").Rows(i+1)("加工级别")
                    r("累计成本") = DataTables("表A").Compute("Sum(累计成本)", "加工级别 =" & _
                    Tables("表A").Rows(i+1)("加工级别") & " ") + r("单价")
                Else
                    r("累计成本") = r("系数") * r("单价")
                End If
           End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
卟离卟弃
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
  发帖心情 Post By:2010/8/18 8:48:00 [显示全部帖子]

r("累计成本") = DataTables("表A").Compute("Sum(累计成本)", "加工级别 =" & _  

Tables("表A").Rows(i+1)("加工级别") & " ") + r("单价")   这些不太懂   _是什么?


 回到顶部
帅哥哟,离线,有人找我吗?
卟离卟弃
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1181 积分:8108 威望:0 精华:1 注册:2009/1/17 10:52:00
  发帖心情 Post By:2010/8/19 9:24:00 [显示全部帖子]

哦,原来如此,谢谢C版!  

 回到顶部