主题：版主请进，请教同一个出库单号，不同合同号的问题

 1、设计好窗口的属性->所有者表

 2、Click事件，代码这样写

然后在这个基础上只显示指定的出库单号的内容，代码怎么写？

比如说，我加一个ComboBox,当我选不同的出库单号时，TABLE1表只显示这个指定的出库单号下的内容?我这样写代码：

ENTER事件：

Dim g As New GroupTableBuilder("统计表1", DataTables("出库清单"))
g.Groups.AddDef("出库单号")
g.Groups.AddDef("订单号")
g.Groups.AddDef("规格")
g.Groups.AddDef("单价")
g.Totals.AddDef("出库数量")
g.Totals.AddDef("合计")
e.Form.Controls("Table1").Table.DataSource = g.BuildDataSource

select 事件

Dim g As New GroupTableBuilder("统计表1", DataTables("出库清单"))
g.Groups.AddDef("出库单号")
g.Groups.AddDef("订单号")
g.Groups.AddDef("规格")
g.Groups.AddDef("单价")
g.Totals.AddDef("出库数量")
g.Totals.AddDef("合计")

Dim dh As WinForm.ComboBox = e.Form.Controls("按出库单号")
g.Filter = "出库单号 = '" & dh.text & "'"
e.Form.Controls("Table1").Table.DataSource = g.BuildDataSource

Perfect!!!

再请教：在这个基础上，对“出库数量”和“合计”这两列做一个合计，代码怎么加？

Dim t As Table = e.Form.Controls("Table1").Table
Dim g As New GroupTableBuilder("统计表1", DataTables("出库清单"))
g.Groups.AddDef("出库单号")
g.Groups.AddDef("订单号")
g.Groups.AddDef("规格")
g.Groups.AddDef("单价")
g.Totals.AddDef("出库数量")
g.Totals.AddDef("合计")
Dim dh As WinForm.ComboBox = e.Form.Controls("按出库单号")
g.Filter = "出库单号 = '" & dh.text & "'"
t.DataSource = g.BuildDataSource

t.Cols("出库数量").GrandTotal = True '指定要合计的列
t.Cols("合计").GrandTotal = True
t.GrandTotal = True '显示合计模式

如果设置一个“导出”按钮，用EXCEL模板，请问一下EXCEL模板中对应的<表>的名称是什么？用TABLE1提示说表不存在；

用这个代码，可以导出：

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "fa piao管理_Table1" '指定导出表
    ex.Format = "Excel"
    ex.Filter = Tables("fa piao管理_Table1").Filter
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
    Tables("fa piao管理_Table1").SaveExcel(dlg.FileName,"Invoice")
End If

但想直接导出到模板，用这个代码：

Dim Book As New XLS.Book(ProjectPath & "Attachments\Invoice.xls")
Dim fl As String = ProjectPath & "Reports\Invoice.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

导出的EXCEL没有数据，是哪里错了？