Foxtable(狐表)用户栏目专家坐堂 → 合计行判断


  共有4542人关注过本帖树形打印复制链接

主题:合计行判断

帅哥哟,离线,有人找我吗?
asionwong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1615 威望:0 精华:0 注册:2013/8/21 9:41:00
合计行判断  发帖心情 Post By:2014/2/24 16:31:00 [只看该作者]

窗口1有一个tables("A.明细"),窗口1打开时,tables("A.明细")自动添加合计行,现在先做个"删除"按钮,想判断如果是合计行,不操作,否则当前行删除。请教怎么做?因为我发现如果不进行判断,当前行为合计行的时候,删除的时候要报错的。THANKS

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/24 16:34:00 [只看该作者]

If Tables("XX").current.IsGroup Then
    Messagebox.Show(
"第五行是分组行!")
End
 
If


 回到顶部
帅哥哟,离线,有人找我吗?
asionwong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1615 威望:0 精华:0 注册:2013/8/21 9:41:00
  发帖心情 Post By:2014/2/25 0:47:00 [只看该作者]

我按上面的做还是不行,上面是汇总模式下的行,我说的是通过

With Tables("收款单.收款明细")
    .Cols("收款金额").GrandTotal = True
    .Cols("短缺金额").GrandTotal = True
    .GrandTotal = True
End With

形成的合计行,因为做了一个删除行和增加行两个键,当光标定位在该合计行的时候,点删除行或增加行的时候,还是会报错


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/25 7:39:00 [只看该作者]

If CurrentTable.Position > - 1 Then
    CurrentTable.Current.Delete()
End If

 回到顶部
帅哥,在线噢!
y2287958
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4760 积分:34608 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/2/25 8:15:00 [只看该作者]

想问一下
“合计模式”能否像“汇总模式”那样,可能通过代码写入一些其它信息?


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/25 8:18:00 [只看该作者]

可以的,你动手试试即可.

 回到顶部
帅哥,在线噢!
y2287958
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4760 积分:34608 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/2/25 9:05:00 [只看该作者]

以下是引用y2287958在2014-2-25 8:15:00的发言:
想问一下
“合计模式”能否像“汇总模式”那样,可能通过代码写入一些其它信息?

以下是引用Bin在2014-2-25 8:18:00的发言:

可以的,你动手试试即可.

俺试了,就是未能达成,请指教。


 回到顶部
帅哥,在线噢!
y2287958
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4760 积分:34608 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/2/25 9:11:00 [只看该作者]

呵呵,合计模式是不行的,合计行不会触发drawcell事件,也无法访问此行。


 回到顶部
帅哥,在线噢!
y2287958
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4760 积分:34608 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/2/25 9:24:00 [只看该作者]

清楚了

 回到顶部