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

全部代码：在命令窗口中测试ok！～

Forms("工资统计").open()
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("工号") & "'")
            Dim drk As DataRow
            drk = DataTables("工资库").Find("月份 = '" & dc.Name & "' And 工号= '" & dr("工号") & "'")
            if drk isnot nothing then
               
                Dim T as String
                T = "月份 ='" & dc.Name & "' And 工号= '" & dr("工号") & "'"
                dr(dc.name) = DataTables("工资库").Find(T)("实发工资")
            end if
        Next
    End If
Next

Dim dst As WinForm.DataList = Forms("工资统计").Controls("DataList1")
dst.DataTable = DataTables("个人分月工资表")
dst.Build()

 我改成这样就可以了,速度还行,你试试?
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

哈哈，您的更直观～
不过If dr.IsNull("工号") Then  是不是多余了，因为可以加上
 f.ExcludeNullValue = True '排除空值吧，再说‘工资库’一般没有空行，对不？
少个判断，速度就更快了。

另外：你的“在生成的交叉表和DataList时如何只保留二位小数”，我有个解决办法：你在命令窗口中试试：
因为你增加了专门的表来统计！

forms("工资统计").open()
'第一: 在datalist中显示交叉统计:::::::::
Dim g1 As New CrossTableBuilder("个人分月", DataTables("工资库"))
g1.HGroups.AddDef("工号")
''g1.HGroups.AddDef("部门")
g1.HGroups.AddDef("姓名")
'g1.VGroups.AddDef("日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组
g1.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组,按月分组
g1.Totals.AddDef("实发工资", "实发工资")
g1.OrderByTotal = True
g1.HorizontalTotal = True
g1.VerticalTotal = True
With Forms("工资统计").Controls("DataList1")
    .DataTable = g1.Build(TRue)
    .Build()
End With
'第二: 将datalist的内容复制到【个人分月工资表】::::::::::::::::::
Dim dst As WinForm.DataList = Forms("工资统计").Controls("DataList1")
Dim f As New Filler
f.SourceTable = dst.datatable
f.SourceCols = "工号,姓名,crsz1,crsz2,crsz3,crsz4" 
f.DataTable = DataTables("个人分月工资表")
f.DataCols = "工号,姓名,一月,二月,三月,四月"
f.Filter = "[工号] <> '""' "
DataTables("个人分月工资表").DataRows.Clear() '清除原来的数据
f.Fill() '填充数据

'第三: 将【个人分月工资表】绑定到新增的窗口【工资统计1】（和原来的一样大小）中的datalist:::::::::::::
forms("工资统计1").open() 

datalist中，不会出现N位的小数了



 

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

哈哈～， 顺序不一样的，你这个是先完成‘个人月份工资表’，在通过datalist显示；

我的相反： 是先在datalist生成交叉表后，将datalist中的内容复制到‘个人月份工资表’，再返回到第二个datalist来显示，目的就是要回避N位小数（当然第一个datalist上还是显示了N位的小数，只是把他藏在第二个datalist之后，当然可以打开第二个datalist之前，关闭第一个datalist）。主要是对你http://www.foxtable.com/dispbbs.asp?boardid=2&Id=2600 问题的。


此主题相关图片如下：未命名.jpg


不影响你本贴这更好在的方式。

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

收藏