标题：[求助]如何表示当前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

帮助有流水账的例子，你可以参考一下

我知道,但是当隐藏一些行后,那些就不对了

还有这个代码要怎么样写,我也要学一下,

麻烦各位老师看一下

如果有隐藏行，那此隐藏行的条件是什么？比如条件是附助列[row]等于1，那么

 Dim Val1 As Double = tables("出货总表").Compute("Sum(金额)","[row] <> 1")

附助列其实跟可见行的行号是相同的,

我的意思是如果不用附助列的话,[row]应该用什么代码

帮助中的流水账，提到了一个_SortKey列，可以表示行的位置，如果要排除隐藏行，可以：
 
Dim Val1 As Double =
If  tables("出货总表").Filter >""
     Val1 = tables("出货总表").Compute("Sum(金额)", )", "[_SortKey] <= " & dr("_SortKey") & " And (" & tables("出货总表") & ")")
Else
    Val1 = tables("出货总表").Compute("Sum(金额)","[row] <= " & dr("row"))
End If