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

 我改成这样就可以了,速度还行,你试试?
Dim drk As DataRow
            drk = DataTables("工资库").Find("月份 = '" & dc.Name & "' And 工号= '" & dr("工号") & "'")
            if drk isnot nothing then               
           If dr.IsNull("工号") Then
                dr(dc.Name) = Nothing
            Else
                dr(dc.Name) = drk("实发工资")
            End If
        End If

先谢谢mr725,不过,个人分月表中如果用
dr(dc.name) = DataTables("工资库").Compute("Sum(实发工资)","月份 ='" & dc.Name & "' And 工号= '" & dr("工号") & "'")
那就直接用贺老师原有的代码就可以的,就是我在八楼的这段代码


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()

小数的问题贺老师已解决了,本来是在今天的更新中的,呵呵,不过还是要谢谢你的帮助!