主题：数据统计

帮我做一下统计吧，按日期汇总产量，带排序的（按型号规格排序），汇总结果在汇总表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

Dim g As New CrossTableBuilder("汇总", DataTables("产量"))
g.HGroups.AddDef("型号")
g.HGroups.AddDef("规格")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("产量", "产量")
g.OrderByTotal = True
g.HorizontalTotal = True
g.Build()
MainTable = Tables("汇总")

我希望按[汇总]表样式统计,也可以叫交叉表吧

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据统计.table

这个表和我的人事工资管理中的二个统计表差不多,呵呵

是自动汇总的吗?我改了产量表的数据,汇总表怎么没有反应?

你点按钮啊

谢谢,我没注意到有窗口.一定要窗口按钮吗?能否切换到汇总表后自动汇总?

将下面的代码放在项目属性MainTableChanged 事件中,然后删除窗口中的按钮


If MainTable.Name = "汇总" Then
DataTables("汇总").DataRows.Clear()
dim f As New Filler
 f.SourceTable = DataTables("产量") '指定数据来源
 f.SourceCols = "型号,规格" '指定数据来源列
 f.DataTable = DataTables("汇总") '指定数据接收表
 f.DataCols = "型号,规格"  ' 指定数据接收列
 f.Fill() '填充数据
 For Each dc As DataCol In DataTables("汇总").DataCols
     If dc.Name.EndsWith("月") Then
         For Each dr As DataRow In DataTables("汇总").DataRows
             dr(dc.name) = DataTables("产量").Compute("Sum(产量)","月 ='" & dc.Name & "' And 型号= '" & dr("型号") & "'And 规格= '" & dr("规格") & "'")
 Next
     End If
 Next
End If

很好,谢谢你了