谁能把这段改成【表属性】的行代码啊
这个是窗口按钮的带码
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