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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教:部门分月工资表的合计代码

共有19891人关注过本帖树形打印复制链接主题：请教:部门分月工资表的合计代码

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/8 15:01:00 [显示全部帖子]

很经典的统计。

既然工资库有月份列，可以省很多编码的工作量：

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("部门") & "'")
         Next
     End If
Next