[求助] Excel报表直接统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

ExcelExcel
图片点击可在新窗口打开查看

此主题相关图片如下：无标题.png

报表直接统计数据，在写表达式时由于物品品种较多，不想一个一个输入，请问有何它办法？

[此贴子已经被作者于2015/6/7 22:38:17编辑过]

有代码吗，这样可以不用狐表的组件

我写了汇总的代码，然后导出，但是导出失败。请问代码有何问题？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:模具缺损率.xls

Dim t As Table = Tables("加硫")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = True

t.SpillNode = True

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "型号"

g.TotalOn = "生产数,实际成型回数,标准成型回数"

g.Caption = "{0} 累计"

g.upto = True

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim Book As New XLS.Book(ProjectPath & "Attachments\模具缺损率.xls")

Dim fl As String = dlg.FileName

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Sheet(3,9).Value = "<" & Tables("加硫").Filter & ">" '写入打印条件

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process

Proc.File = fl

Proc.Start()

End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

简单的分组初步完成，

还想追加

我想、

1.追后1列追加各个型号分组的“缺损率”，

表达式：实际成型回数-标准成型回数/标准成型回数

2. 最后一行有总计的数据，生产数、实际、标准、以及缺损率。

此主题相关图片如下：catchcbaa.jpg

临时表要删除吗

Dim g As New GroupTableBuilder("统计表1", DataTables("加硫"))

g.Groups.AddDef("型号")

g.Totals.AddDef("生产数")

g.Totals.AddDef("实际成型回数")

g.Totals.AddDef("标准成型回数")

g.VerticalTotal = True

g.Build()

Dim t As Table = Tables("统计表1")

Dim dc = t.DataTable.DataCols.Add("缺损率", Gettype(Double), "(实际成型回数-标准成型回数)/标准成型回数")

dc.SetFormat("0.00%")

MainTable = Tables("统计表1")

If MessageBox.Show("确定要生成所选数据的模具缺损率吗?","确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Tables("统计表1").SaveExcel(dlg.FileName, "模具缺损率") '保存文件

End If

messagebox.show("生成成功!","确认")

DataTables.Unload("统计表1")

Else

e.Form.controls("Button3").Select

End If

谢谢可以了！

主题：[求助] Excel报表直接统计问题