[求助]分组统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

狂风暴雨狂波

按日期列分组统计，如果日期列为空不参与分组统计的代码怎么写？

狂风暴雨狂波

此主题相关图片如下：错误提示.bmp

狂风暴雨狂波

加上去保存出现上述错误提示.

狂风暴雨狂波

图片点击可在新窗口打开查看此主题相关图片如下：表样.bmp

如何使"上年结转"下面的"本月小计""本季合计""本年累计"三行不显示?

狂风暴雨狂波

Dim t As Table = e.Table
If t.Rows.Count>0 Then
    Dim g As Subtotalgroup
    t.SubtotalGroups.Clear()
    t.GroupAboveData = False
    t.TreeVisible = False
    t.SpillNode = True
    ''t.filter = "日期 Is Not Null"

    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "日期"
    g.TotalOn = "借方数量,借方金额,贷方数量,贷方金额"
    g.Caption = "本月小计"
    g.DateGroup = DateGroupEnum.Month
    t.SubtotalGroups.Add(g)

    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "日期"
    g.TotalOn = "借方数量,借方金额,贷方数量,贷方金额"
    g.Caption = "本季合计"
    g.DateGroup = DateGroupEnum.Quarter
    t.SubtotalGroups.Add(g)

    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "日期"
    g.TotalOn = "借方数量,借方金额,贷方数量,贷方金额"
    g.Caption = "本年累计"
    g.DateGroup = DateGroupEnum.Year
    g.upto = True
    t.SubtotalGroups.Add(g)

    t.Subtotal()
End If

代码放在AfterFilter表事件中.

狂风暴雨狂波

这个代码放在什么位置?放在哪个事件中?

狂风暴雨狂波

以下是引用有点甜在2018/3/8 17:32:00的发言：

比如代码

Dim r = e.Table.grid.rows(3)
r.visible = False

[此贴子已经被作者于2018/3/8 17:32:43编辑过]

这个代码放在什么位置?放在哪个事件中?

狂风暴雨狂波

以下是引用有点甜在2018/3/8 20:53:00的发言：

比如

t.Subtotal()

Dim r = t.grid.rows(3)
r.visible = False

这是不显示出来,如果不打印怎么写代码呢?

狂风暴雨狂波

以下是引用有点甜在2018/3/8 22:02:00的发言：

没办法，只能隐藏，不能移除的。

打印、导出，都是不会显示已经隐藏的行的。

专业报表打印代码将这三行数据不填列就可以了.问题已得到圆满解决,谢谢有点甜老师!

主题：[求助]分组统计