以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  数据统计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=3314)

--  作者：实话实说 --  发布时间：2009/6/27 16:28:00 --  数据统计 帮我做一下统计吧，按日期汇总产量，带排序的（按型号规格排序），汇总结果在汇总表  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.table

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

--  作者：实话实说 --  发布时间：2009/6/27 16:55:00 --   我希望按[汇总]表样式统计,也可以叫交叉表吧

--  作者：yangming --  发布时间：2009/6/27 17:01:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:数据统计.table 这个表和我的人事工资管理中的二个统计表差不多,呵呵 [此贴子已经被作者于2009-6-27 17:01:56编辑过]

--  作者：实话实说 --  发布时间：2009/6/27 17:29:00 --   是自动汇总的吗?我改了产量表的数据,汇总表怎么没有反应?

--  作者：yangming --  发布时间：2009/6/27 17:34:00 --   你点按钮啊

--  作者：实话实说 --  发布时间：2009/6/27 17:40:00 --   谢谢,我没注意到有窗口.一定要窗口按钮吗?能否切换到汇总表后自动汇总?

--  作者：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

--  作者：实话实说 --  发布时间：2009/6/27 18:32:00 --   很好,谢谢你了