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

这段经典，期待狐爸能努力实现～～
刚试过了，很不错。
这样似乎可以修改Excel报表中的 想临时加入的一些内容了，起到预览的作用，而不必真的打开Excel报表文件本身来预览啦是吗？ 。

可以以假乱真吗？

此主题相关图片如下：1111.gif

直接用模板生成报表的命令代码怎么写？能否自由控制生成的报表打开或不打开，——最好加个打开或不打开的属性。

上面的报表是通过代码实现的。无报表模板。

地址是不存在问题的，只是excel文件能直接显示在WebBrowser控件中吗？我这里怎么不行啊？

可以呀：

此主题相关图片如下：web+.gif

哈哈，这样可以直接打开窗口及显示报表内容：
Forms("窗口2").open()
Dim brw As WinForm.WebBrowser = Forms("窗口2").Controls("WebBrowser1")
brw.Address = "C:\downloads\foxtablesftA\CaseStudy\Reports\出库单.xls"

此主题相关图片如下：web+1.gif

我不行，我会提示我下载文件。

窗体关闭后，后台excel还在运行，不知用代码怎么关闭，另外，如果，关闭再开的话，会提示“excel已打开”的对话框。所以，应该给excel报表XLS.Book加一个方法delete，这样可删除已经存在的报表，可再用save方法生成新的报表。
另外，模板报表应该能够自由选择打开/不打开，这样用模板报表可直接套进WebBrowser。

用程序附带的学习档，按帮助套的，关键后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