| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 合计行判断 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46489) |
| -- 作者：asionwong -- 发布时间：2014/2/24 16:31:00 -- 合计行判断 窗口1有一个tables("A.明细")，窗口1打开时，tables("A.明细")自动添加合计行，现在先做个"删除"按钮,想判断如果是合计行，不操作，否则当前行删除。请教怎么做？因为我发现如果不进行判断，当前行为合计行的时候，删除的时候要报错的。THANKS |
| -- 作者：Bin -- 发布时间：2014/2/24 16:34:00 -- If Tables("XX").current.IsGroup Then Messagebox.Show("第五行是分组行！") End If |
| -- 作者：asionwong -- 发布时间：2014/2/25 0:47:00 -- 我按上面的做还是不行，上面是汇总模式下的行，我说的是通过 With Tables("收款单.收款明细") 形成的合计行，因为做了一个删除行和增加行两个键，当光标定位在该合计行的时候，点删除行或增加行的时候，还是会报错 |
| -- 作者：lsy -- 发布时间：2014/2/25 7:39:00 -- If CurrentTable.Position > - 1 Then CurrentTable.Current.Delete() End If |
| -- 作者：y2287958 -- 发布时间：2014/2/25 8:15:00 -- 想问一下 “合计模式”能否像“汇总模式”那样，可能通过代码写入一些其它信息？ 像这个：汇总模式下的行
|
| -- 作者：Bin -- 发布时间：2014/2/25 8:18:00 -- 可以的,你动手试试即可. |
| -- 作者：y2287958 -- 发布时间：2014/2/25 9:05:00 --
以下是引用Bin在2014-2-25 8:18:00的发言：
可以的,你动手试试即可. 俺试了，就是未能达成，请指教。 |
| -- 作者：y2287958 -- 发布时间：2014/2/25 9:08:00 -- 例如以下代码：未能执行 Dim r As Row With Tables("表C") For i As Integer = 0 To .Rows.Count(True) - 1 \'Count加上参数True r = .Rows(i,True) \'Rows也需要加上参数True If r.IsGroup Then \'如果是分组行 r("第四列") = r("第三列") /100 End If Next End With |
| -- 作者：狐狸爸爸 -- 发布时间：2014/2/25 9:11:00 -- 呵呵，合计模式是不行的，合计行不会触发drawcell事件，也无法访问此行。 |
| -- 作者：y2287958 -- 发布时间：2014/2/25 9:24:00 -- 清楚了 |