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

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

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

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

贺老师,发错文件了

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

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

还有一个问题,我还有一张个人分月表,我套用了上面部门的代码,但是我有一节代码不知如何做,请老师帮忙看看:
请看下面红色的那节,关键是"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

请看此表

是出来了啊,我的意思是我是用求和的方法,有没有提取的方法?因为个人工资只是提取单元格的数据,并不是几个单元格之和啊

dr(dc.name) = DataTables("工资库").Find("实发工资","月份 ='" & dc.Name & "' And 工号= '" & dr("工号") & "'")

我这样做过,但是报错了,请don老师看看错在何处?

如不用T,这样也可以? 
dr(dc.name) = DataTables("工资库").Find("月份 ='" & dc.Name & "' And 工号= '" & dr("工号") & "'")("实发工资")

我试试
这样报错了

15楼的也报错了...
短句是看的清楚,呵呵,我只是想和贺老师做的那个做个比较