共9 条记录, 每页显示 10 条, 页签: [1]

标题：数据统计

1楼

实话实说 发表于：2009/6/27 16:28:00

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

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

2楼

shxiaoya 发表于：2009/6/27 16:43:00

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("汇总")

3楼

实话实说 发表于：2009/6/27 16:55:00

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

4楼

yangming 发表于：2009/6/27 17:01:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据统计.table

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

[此贴子已经被作者于2009-6-27 17:01:56编辑过]

5楼

实话实说 发表于：2009/6/27 17:29:00

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

6楼

yangming 发表于：2009/6/27 17:34:00

你点按钮啊

7楼

实话实说 发表于：2009/6/27 17:40:00

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

8楼

yangming 发表于：2009/6/27 17:53:00

将下面的代码放在项目属性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

9楼

实话实说 发表于：2009/6/27 18:32:00

很好,谢谢你了

共9 条记录, 每页显示 10 条, 页签: [1]