主题：见过这样的汇总表吗？狐表能否做到？

用程序附带的学习档，按帮助套的，关键后4句。WebBrowser1路径要填全：test.xls
如果能够Book.Delete("G:\release\CaseStudy\Reports\test.xls")，那该多好啊！
按钮代码自动生成报表并打开：（窗口3及WebBrowser1请自己建）
Dim dt As Table = Tables("订单")
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
Style.BackColor = Color.Red '样式的背景颜色设为红色
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next
    If dt.rows(r)("折扣") >= 0.15 Then '如果折扣大于等于0.15
        Sheet(r + 1,dt.Cols("折扣").Index).Style = Style '设置折扣单元格的样式
    End If
Next
'打开工作簿
Book.Save("G:\release\CaseStudy\Reports\test.xls")
with Forms("窗口3")
.Show()
.Controls("WebBrowser1").Address = "G:\release\CaseStudy\Reports\test.xls"
end with

  做一个组合框控件,项目列表中输入你要加载的报表名字,做一个按钮加入以下代码就可以预览你想要的报表.

Dim T,T1,T2 As String
T =  e.Form.Controls("ComboBox1").value
T1 = ProjectPath & "Attachments\" & T & ".xls"
T2 = ProjectPath & "Reports\ "& T & ".xls"

if T isnot Nothing then
    If T.Indexof(T) > -1 then
        Dim Book As New XLS.Book(T1)
        Book.Build()
        Book.Save(T2)
        with Forms("窗口名字")
            .Show()
            .Controls("WebBrowser1").Address = t2
        end with
       
    End if
End if