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

很经典的统计。

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

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