主题：请教:部门分月工资表的合计代码

要求,将工资库中的数据,将"实发工资"数按月汇总到部门分月表中,比如,技术部一处,每月的实发工资合计数分别汇总到每个月份列中,各部门的名称要自动生成,请看:

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

点击浏览该文件:论坛提问.table

很经典的统计。

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

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

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

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

贺老师,发错文件了

已经重发了。

在二楼的公式后面,我加了一段代码,就可以在窗口的DataList1中显示出来了
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = DataTables("部门分月工资表")
dst.Build()

如果不是要在预先设计好的表格中统计，你何不用交叉统计？这样直接就可以直接生成临时统计表，在DataList中显示，而且编码更加简单。
就像你上一个例子所做的。

主要是各部门年终统计的不光是工资,另外还有年终奖及效益工资数,那些都是年底才会有数据的

还有一个问题,我还有一张个人分月表,我套用了上面部门的代码,但是我有一节代码不知如何做,请老师帮忙看看:
请看下面红色的那节,关键是"Compute("Sum(实发工资)",  我不会做
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
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = DataTables("个人分月工资表")
dst.Build()

就是目前这个代码也可以生成数据

没道理的，将你做好的东西，保留相关表格，发上来看看。

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

点击浏览该文件:2部门分月统计.table

请看此表