以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列 问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71675)
--  作者：bestorange
--  发布时间：2015/7/16 0:24:00
--  逻辑列 问题

逻辑列下各行数据，如勾选，自动隐藏，改用什么命令实现？

 

自动隐藏目的是勾中行的数据不参加分组统计
--  作者：y2287958
--  发布时间：2015/7/16 9:01:00
--  
DataColChanged事件
If e.DataCol.Name = "第一列" AndAlso e.DataRow("第一列") = True
    e.DataRow.Save
    e.DataRow.Remove
End If
--  作者：大红袍
--  发布时间：2015/7/16 9:05:00
--  

 你分组统计的代码加上条件就行啊。

 

g.filter = "逻辑列 = False Or 逻辑列 is null"
--  作者：bestorange
--  发布时间：2015/7/16 14:44:00
--  

Dim t As Table = Tables("教师工资表")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "教师姓名"
g.TotalOn = "签到次数,教师工资"
g.Caption = "{0} 共计"
t.SubtotalGroups.Add(g)

t.Subtotal()

 

 

sorry 是不参与 汇总的计算
--  作者：大红袍
--  发布时间：2015/7/16 14:45:00
--  

Dim t As Table = Tables("教师工资表")

t.Filter = "逻辑列 = False Or 逻辑列 is null"
--  作者：bestorange
--  发布时间：2015/7/16 14:50:00
--  
红袍大师太感谢你啦！~这个程序终于全部搞定了！接下来我要抽时间从基础知识学起了！