我在窗口中利用 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