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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据统计

共有16964人关注过本帖树形打印复制链接主题：数据统计

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/27 17:01:00 [显示全部帖子]

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

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

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

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/27 17:34:00 [显示全部帖子]

你点按钮啊

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：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

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

主题：数据统计