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

其实，应该有个简单的方法实现，可能大家都疏忽了。

foxtable中有WeBrowser控件，借助于它兴许可以间接实现很多意想不到的功能。

首先，楼主先把想要的统计表做成excel报表，再在WeBrowser控件中地址栏中输入excel报表的地址（包括excel档名称及后缀名）（题外话：地址栏不好用，只能直接输或通过右键粘贴，希望贺老师能加个按钮，直接通过点击按钮选择文件路径）。借助于WeBrowser控件，可以将excel表在foxtable的窗体中显示出来。

附上程序自带的一个报表。功力不够，精力和时间也不允许，代码就免了，不过流程大致就这样了。(先吹一下牛，其实俺也不会)

希望能够实现。

窗体关闭后，后台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