主题：excel报表求助

如图，分组统计中，同样的代码，放在表的下面就能正确统计，放在表头就统计不出来，怎么回事。想放在上面统计每个分组的法律服务所数，怎么弄，谢谢！
此主题相关图片如下：qq图片20150202084909.jpg

那我通过目录树的复选框，用filter筛选出记录后，是不是要把筛选结果保存为一张表，才能进一步设置条件筛选出符合条件的记录的数量并付值给var变量？如是的话，那怎样将筛选结果保存为一张表？

'------------筛选出符合条件的记录--------------
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
Dim notchecked As Integer
Dim t As Table
t = Tables("基层法律服务机构信息表")
If e.Node.Name = "全部"  Then
    If e.Node.Checked = True Then
        For Each nd In trv.AllNodes
            If nd.Name <> "全部"  Then
                nd.Checked = False
            End If
        Next
        t.Filter = ""
    Else
        For Each nd In trv.AllNodes
            nd.Checked = False
        Next
        t.Filter = (1 = 2)
    End If
    trv.CollapseAll
    Return
Else
    trv.AllNodes(0).Checked = False
End If
For Each nd In e.node.allNodes
    nd.Checked = False
Next
pd = e.Node.ParentNode
Do While pd IsNot Nothing
    pd.Checked = False
    pd = pd.ParentNode
Loop
For Each nd In trv.AllNodes
    If nd.Checked  Then
        Dim vals As String = ""
        If vals > "" Then
            vals = vals & " And "
            Select Case e.Node.Level
                Case 0
                    vals &= "主管司法局= '" & nd.DataRow("主管司法局") & "'"
                Case 1
                    vals &= "主管司法局='" & nd.DataRow("主管司法局") & "' and  法律服务所= '" & nd.DataRow("法律服务所") & "'"
            End Select
        Else
            vals=vals
            Select Case e.Node.Level
                Case 0
                    vals &= "主管司法局= '" & nd.DataRow("主管司法局") & "'"
                Case 1
                    vals &= "主管司法局='" & nd.DataRow("主管司法局") & "' and  法律服务所= '" & nd.DataRow("法律服务所") & "'"
            End Select
            If flt > "" Then
                flt = flt & " Or (" & vals & ")"
            Else
                flt = vals
            End If
            notchecked + = 1
        End If
    End If
Next
If flt > "" AndAlso notchecked > 0 Then
    t.Filter = flt
   ' Dim cont1 As Double = Tables("基层法律服务机构信息表").Compute("count(法律服务所)", "主管司法局 = '" & e.Node.Name & "'")
   ' vars("分组统计法律服务所数")=cont1
   ' MessageBox.Show(vars("分组统计法律服务所数"))
Else
    t.Filter = (1 = 2)
End If

 

'-----------加载相应报表----------

Dim Book As New XLS.Book(ProjectPath & "Attachments\基层法律服务所名册.xls")
Dim fl As String = ProjectPath & "Reports\基层法律服务所名册.xls"
Book.Build() '生成细节区
Book.Marks.Add("法律服务所数",Tables("基层法律服务机构信息表").Compute("count(法律服务所)", "主管司法局 = [主管司法局]"))
Book.Save(fl) '保存工作簿
'book.Save("c:\data\test.xls")

Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(fl)
Wb.SaveAs(Filename:=ProjectPath & "Reports\基层法律服务所名册.htm", FileFormat:=MSExcel.XlFileFormat.xlHtml)
wb.close
app.quit

Dim str As String = FileSys.ReadAllText(ProjectPath & "Reports\基层法律服务所名册.htm",  Encoding.Default)
'str = str.Replace("<style>", "<style>table {margin:auto}")
str = str.Replace("<style>", "<style>body{ text-align: center;} table {margin:auto}")
FileSys.WriteAllText(ProjectPath & "Reports\基层法律服务所名册.htm",  str, False, Encoding.Default)

Dim str1 As String = FileSys.ReadAllText(ProjectPath & "Reports\基层法律服务所名册.files\stylesheet.css", Encoding.Default)
str1="body{ text-align: center;} Table {margin-left:auto ; margin-right:auto}" & str1
FileSys.WriteAllText(ProjectPath & "Reports\基层法律服务所名册.files\stylesheet.css",str1, False, Encoding.Default)

Dim wbr As WinForm.WebBrowser = Forms("基层法律服务机构报表").Controls("WebBrowser1")
Dim rpt As String = ProjectPath & "Reports\基层法律服务所名册.htm"
wbr.AddRess = rpt

 

在报表的表头上设计标记  <法律服务所数> ，在左边的目录树的复选框改变豆腐中用以上代码，怎么报表的表头什么也没有显示，要怎么改才行。目的是要在表头上显示每个分组中的记录数。谢谢！

麻烦哪位帮看下。

嗯，在表头上单独用<法律服务所数> ，数量是生成正确了。在表头显示时，这个字符串，生成不了。请帮看下，该怎么写的。<[主管司法局] & ":" & "共" & <法律服务所数> & "个法律服务所">

这个是设计时的标记

哦，刚才说的正确生成法律服务所数是错的，生成一个分组是正确的，但生成两个以上的分组时，就是总共的分组的数量加起来的，没有按每个分组来统计法律服务所数。

按

<[主管司法局] & ":共<法律服务所数>个法律服务所">

这个写不行。分3个单元格没试，如要分的话也很不好看呢。

还是没搞定。求帮助，各事件和代码如下：

以下是目录树复选框变动事件的代码，麻烦帮看下：