| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 统计表导出excel后，没有合计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114772) |
| -- 作者：xxfoxtable -- 发布时间：2018/2/22 0:19:00 -- 统计表导出excel后，没有合计 Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Tables("订单").SaveExcel(dlg.FileName, "订单") \'保存文件 End If 用这种方法导出后，没有合计，table控件里有合计，怎么写代码比较好？
|
| -- 作者：有点甜 -- 发布时间：2018/2/22 8:48:00 -- Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog |
| -- 作者：xxfoxtable -- 发布时间：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 这是这样写的代码，导出去没有合计了，怎么回事？
|
| -- 作者：有点甜 -- 发布时间：2018/3/12 15:09:00 -- 改成汇总模式，然后再导出
http://www.foxtable.com/webhelp/scr/00144.htm
http://www.foxtable.com/webhelp/scr/1372.htm
|
| -- 作者：xxfoxtable -- 发布时间：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编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/3/12 15:21:00 -- 改成汇总模式，再导出，不是合并模式
http://www.foxtable.com/webhelp/scr/00144.htm
http://www.foxtable.com/webhelp/scr/1372.htm |
| -- 作者：xxfoxtable -- 发布时间：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) \'加到分组集合中 我是这样写的，没有效果啊,没反应
|
| -- 作者：有点甜 -- 发布时间：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() |