| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何表示当前row? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=7261) |
| -- 作者：抽烟男人 -- 发布时间：2010/6/1 12:03:00 -- [求助]如何表示当前row? 我在用流水帐时不知道怎么表示当前行,只能增加附助列[row] 不知道不用附助列应该怎么写下面的代码
Dim r As Double =0 |
| -- 作者：狐狸爸爸 -- 发布时间：2010/6/1 12:18:00 -- 帮助有流水账的例子，你可以参考一下 |
| -- 作者：抽烟男人 -- 发布时间：2010/6/1 14:40:00 -- 我知道,但是当隐藏一些行后,那些就不对了 还有这个代码要怎么样写,我也要学一下, 麻烦各位老师看一下 |
| -- 作者：yangming -- 发布时间：2010/6/1 14:47:00 -- 以下是引用抽烟男人在2010-6-1 14:40:00的发言：
我知道,但是当隐藏一些行后,那些就不对了 还有这个代码要怎么样写,我也要学一下, 麻烦各位老师看一下 如果有隐藏行，那此隐藏行的条件是什么？比如条件是附助列[row]等于1，那么 Dim Val1 As Double = tables("出货总表").Compute("Sum(金额)","[row] <> 1") |
| -- 作者：抽烟男人 -- 发布时间：2010/6/1 15:10:00 -- 附助列其实跟可见行的行号是相同的, 我的意思是如果不用附助列的话,[row]应该用什么代码 |
| -- 作者：狐狸爸爸 -- 发布时间：2010/6/1 16:33:00 -- 帮助中的流水账，提到了一个_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 |