统计表导出excel后，没有合计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2487人关注过本帖树形打印复制链接主题：统计表导出excel后，没有合计

xxfoxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15873 威望：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控件里有合计，怎么写代码比较好？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

xxfoxtable

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15873 威望：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

这是这样写的代码，导出去没有合计了，怎么回事？

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/12 15:09:00 [只看该作者]

改成汇总模式，然后再导出

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

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

xxfoxtable

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15873 威望：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编辑过]

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

xxfoxtable

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15873 威望：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) '加到分组集合中

我是这样写的，没有效果啊,没反应

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

下一主题 >> << 上一主题

主题：统计表导出excel后，没有合计