主题：[求助]求变动成本和固定成本

嗯，好了。不过用数据测了下，发现跟用excel算出来的有差异，一下不知问题在哪

sum1的计算结果是不对的，实际应该是11629431，代码结果是36805359，但公式好象没问题，不知为什么

Dim t As Table = Tables("表A")
Dim avg1 As Double
Dim avg2 As Double
Dim sum1 As Double =0
Dim sum2 As Double =0
For Each r As Row In t.rows
    sum1 += val(r("销量"))
    sum2 += val(r("费用"))
Next

avg1 = sum1 / t.rows.count
avg2= sum2 / t.rows.count

sum1=0
sum2=0
For Each r As Row In t.rows
    sum1 += (val(r("销量"))-avg1)*(val(r("费用"))-avg2)
    sum2 += (val(r("销量"))-avg1)*(val(r("销量"))-avg1)
Next
msgbox(sum1 / sum2)

嗯，现在对了，谢谢

dim rs as list (of DataRow)=dt.datarows.Select("部门 = '" & bj & "'")'集合
if rs IsNot Nothing then  ‘判断空
For Each r As DataRow In rs
  sum1 += val(r("销量"))end if

还是有同样的错误提示

 底下 还有一部分

dim rs2 as list (of DataRow)=dt.datarows.Select("部门 = '" & bj & "'")'集合
if rs2 IsNot Nothing then  ‘判断空
For Each r2 As DataRow In rs2
  sum1 += val(r2("销量"))end if

Dim t As DataTable = DataTables("表A")
Dim bjs As List(Of String) = t.GetValues("部门")
For Each bj As String In bjs
    Dim drs = t.Select("部门 = '" & bj & "'")
    Dim avg1 As Double = 0
    Dim avg2 As Double = 0
    Dim sum1 As Double = 0
    Dim sum2 As Double = 0
    For Each r As DataRow In drs
        sum1 += val(r("销量"))
        sum2 += val(r("费用"))
    Next
   
    avg1 = sum1 / drs.count
    avg2= sum2 / drs.count
    sum1=0
    sum2=0
    For Each r As DataRow In drs
        sum1 += (val(r("销量"))-avg1)*(val(r("费用"))-avg2)
        sum2 += (val(r("销量"))-avg1)*(val(r("销量"))-avg1)
    Next
   
    Dim b As Double = sum1 / sum2
    Dim a As Double = avg2 - b*avg1
    msgbox(bj & " " & a)
Next