设置条件 日期 is not null

如果写代码 g.filter = "日期 is not null"

如果是汇总统计，改成

Tables("表A").filter = "日期 is not null"

此主题相关图片如下：表样.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表事件中.

比如代码

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

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