主题：[求助]如何表示当前row?

我在用流水帐时不知道怎么表示当前行,只能增加附助列[row]

不知道不用附助列应该怎么写下面的代码

Dim r As Double =0
for each dr as row in tables("出货总表").rows
    r=r+1
    dr("row")=r
    Dim Val1 As Double = tables("出货总表").Compute("Sum(金额)","[row] <= " & dr("row"))
    Dim Val2 As Double = tables("出货总表").Compute("Sum(收款)","[row] <= " & dr("row"))
    dr("结余")=val1-val2
next