主题：[求助]谁有做过在仓库移动加权平均单价的算法啊

移动加权代码：

Dim t As Table=e.form.controls("table1").Table
Dim r1,r2 As Row
For  i As Integer=0 To t.rows.count-1
    If i=0
        r1=t.rows(i)
        r1("结存数量")=r1("收入数量")-r1("出货数量")
        r1("结存金额")=r1("收入金额")-r1("出货金额")
    Else
        r1=t.rows(i-1)
        r2=t.rows(i)
        r2("出货单价")=(r1("结存金额")+r2("收入金额"))/(r1("结存数量")+r2("收入金额"))
        r2("出货金额")=r2("出货单价")*r2("出货数量")
        r2("结存数量")=r1("结存数量")+r2("收入数量")-r2("出货数量")
        r2("结存金额")=r1("结存金额")+r2("收入金额")-r2("出货金额")
    End If
Next