Select Case e.DataCol.Name
Case "工号", "姓名"
dim dr =e.DataRow
Dim filter As String = "SubString(工号,11,8)='" & right(dr("工号"),8) & "' and 姓名='" & dr("姓名") & "'"
dr("累计养老保险") = DataTables("薪资累计库").Compute("Sum(养老保险)",filter)
dr("累计医疗保险") = DataTables("薪资累计库").Compute("Sum(医疗保险)",filter)
dr("累计大病统筹") = DataTables("薪资累计库").Compute("Sum(大病统筹)",filter)
dr("累计失业保险") = DataTables("薪资累计库").Compute("Sum(失业保险)",filter)
dr("累计住房公积") = DataTables("薪资累计库").Compute("Sum(住房公积)",filter)
dr("累计企业年金") = DataTables("薪资累计库").Compute("Sum(企业年金)",filter)
dr("累计子女教育") = DataTables("薪资累计库").Compute("Sum(子女教育)",filter)
dr("累计继续教育") = DataTables("薪资累计库").Compute("Sum(继续教育)",filter)
dr("累计大病医疗") = DataTables("薪资累计库").Compute("Sum(大病医疗)",filter)
dr("累计房贷利息") = DataTables("薪资累计库").Compute("Sum(房贷利息)",filter)
dr("累计住房租金") = DataTables("薪资累计库").Compute("Sum(住房租金)",filter)
dr("累计赡养老人") = DataTables("薪资累计库").Compute("Sum(赡养老人)",filter)
dr("累计入井津贴") = DataTables("薪资累计库").Compute("Sum(井下津贴金额)",filter)
dr("累计夜班津贴") = DataTables("薪资累计库").Compute("Sum(夜贴金额)",filter)
dr("累计公务车补") = DataTables("薪资累计库").Compute("Sum(车补金额)",filter)
dr("累计已预扣预缴税额") = DataTables("薪资累计库").Compute("Sum(扣缴税额)",filter)
dr("累计期数") = drs.Count
End Select
加好友 
发短信
Post By：2019/4/9 20:24:00 [只看该作者]
