以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]制作Pareto图累计比例列计算  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84637)

--  作者:joe_xgp
--  发布时间:2016/5/6 10:50:00
--  [求助]制作Pareto图累计比例列计算

各类老师,我想制作一个pareto, 但是在累计比例一列的算法或数值获取代码还不会,请老师大侠们指教一下,非常感谢!!

 

 


图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2016/5/6 11:09:00
--  

Dim t As Table = Tables("表A")

For i As Integer = 0 To t.rows.count - 1
    If i = 0 Then
        t.rows(i)("累计比列") = t.rows(i)("比例")
    Else
        t.rows(i)("累计比列") = t.rows(i-1)("累计比列")+ t.rows(i)("比例")
    End If
Next


--  作者:joe_xgp
--  发布时间:2016/5/6 13:02:00
--  

非常感谢大红袍老师每次的及时解答!!!!叩谢!!