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

'------------筛选出符合条件的记录--------------
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

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

主题：excel报表求助