Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计表导出excel后，没有合计


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

主题：统计表导出excel后，没有合计
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/22 8:48:00 [显示全部帖子]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim flg As New SaveExcelFlags
    flg.CellStyle = True
    Tables("表A").SaveExcel(dlg.FileName, "订单",flg)  '保存文件
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/12 15:09:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/12 15:21:00 [显示全部帖子]

改成汇总模式，再导出，不是合并模式

 

http://www.foxtable.com/webhelp/scr/00144.htm

 

http://www.foxtable.com/webhelp/scr/1372.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/12 16:13:00 [显示全部帖子]

Dim t As Table = Tables("查询仓储费_Table3")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
'定义客户分组
g = New Subtotalgroup '定义一个新的分组
g.GroupOn = "*"   '注意总计分组用符号*表示.
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.TotalOn = "基本数量,辅助数量" '统计数量和金额列
g.Caption = "{0} 合计" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

t.Subtotal()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询