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


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

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


加好友 发短信
等级：七尾狐 帖子：1781 积分：16859 威望：0 精华：0 注册：2017/6/1 23:12:00 		统计表导出excel后，没有合计  发帖心情 Post By：2018/2/22 0:19:00 [显示全部帖子]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Tables("订单").SaveExcel(dlg.FileName, "订单")  '保存文件
End If
用这种方法导出后，没有合计，table控件里有合计，怎么写代码比较好？
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1781 积分：16859 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/3/12 15:04: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("查询仓储费_table3").SaveExcel(dlg.FileName, "费用明细表",flg)  '保存文件
End If
这是这样写的代码，导出去没有合计了，怎么回事？
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1781 积分：16859 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/3/12 15:10:00 [显示全部帖子]

Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

Dim d1 As Date = new Date(val(cb1.text),val(cb2.text),1)
Dim filter As String
filter="日期 >= #" & d1 & "# And 日期<#" & d1.AddMonths(1) & "#"
DataTables("出入库").LoadFilter=filter
DataTables("出入库").Load
Dim tb1 As WinForm.Table = e.Form.Controls("Table3")
tb1.Table.Cols("基本数量").GrandTotal = True '指定要合计的列
tb1.Table.Cols("辅助数量").GrandTotal = True
tb1.Table.Cols("标签费").GrandTotal = True
tb1.Table.Cols("换托费").GrandTotal = True
tb1.Table.Cols("拆箱费").GrandTotal = True
tb1.Table.Cols("运输费").GrandTotal = True
tb1.Table.Cols("装卸费").GrandTotal = True
tb1.Table.GrandTotal = True '显示合计模式
Tables("查询仓储费_Table3").AutoSizeCols()
是汇总模式
[此贴子已经被作者于2018/3/12 15:10:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1781 积分：16859 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/3/12 16:00: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) '加到分组集合中
我是这样写的，没有效果啊,没反应
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询