主题：如何在窗口中导出交叉统计的表格到excel

我在窗口中利用 CrossTableBuilder创建了一个交叉统计表，代码如下：

Dim b As New CrossTableBuilder("统计表1",DataTables("人员目标客户关联表"))

s1="People_Region = '" & ssqy.Text & "' and Saleflow_Medicinename In ('" & s1 & "') and Saleflow_Date>='" & s2 & "' and Saleflow_Date<'" & s3 & "'"
b.HGroups.AddDef("People_Order") '添加客户列用于水平分组
b.HGroups.AddDef("People_Name") '添加客户列用于水平分组
b.VGroups.AddDef("Saleflow_Medicinename") '添加药品名称列用于垂直分组
b.VGroups.AddDef("Saleflow_Medicinemodel") '添加药品规格列用于垂直分组
b.Totals.AddDef("Saleflow_Number") '添加数量列用于统计
b.Filter=s1
b.Build '生成统计表

我现在希望把生成的统计表原样导出的Excel中，遇到以下问题：

1、导出的列名是数据库的列名，而不是修改后的标题名

2、垂直分组里的标题无法导出，例如我垂直分组是药品名称：小儿感冒冲剂，药品规格是口服液、冲剂，但是导出后显示的是一个完全不相干的名字

大家帮忙给点建议。

excel导出的代码如下：

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

你可以换个方法：

http://www.foxtable.com/help/topics/0559.htm