Dim lst As New List(of String)
Dim tbl As Table = Tables("订单")
For each g As SubtotalGroup In tbl.SubtotalGroups
    For Each s As string In g.Totalon.Split(",")
        If lst.Contains(s) = False Then
            lst.Add(s)
        End If
    Next
    If lst.Contains(g.Groupon) = False Then
        lst.Add(g.GroupOn)
    End If
Next
For Each c As Col In tbl.Cols
    c.Visible = lst.Contains(c.Name)
Next

隐藏汇总模式下的非相关列后，汇总行的标题不见了,怎么让汇总行的标题显示？