Foxtable(狐表)用户栏目专家坐堂 → 如何在窗口中导出交叉统计的表格到excel


  共有4166人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
nihuaima2013
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:157 威望:0 精华:0 注册:2013/8/28 23:13:00
如何在窗口中导出交叉统计的表格到excel  发帖心情 Post By:2013/8/29 2:24:00 [只看该作者]

我在窗口中利用 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() '开始导出

 


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/29 8:37:00 [只看该作者]

上个例子看看吧

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/8/29 15:40:00 [只看该作者]

你可以换个方法:

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

 


 回到顶部