Select Case e.DataCol.Name
Case "年度","身份证号","基本工资_小计","补贴_小计","平时考核奖月均额","月均健康休养费","个人状态","离休干部月均生活补贴","月均年终一次性奖","月均平安建设奖","月均目标考核奖","月均全国文明城市奖","基本养老金"
Dim fdr7 As DataRow = e.DataTable.find("月均文明单位奖 Is not null And 身份证号 = '" & e.DataRow("身份证号") & "'", "月均文明单位奖")
Dim fdr8 As DataRow = e.DataTable.find("月均健康休养费 Is not null And 身份证号 = '" & e.DataRow("身份证号") & "'", "月均健康休养费")
If e.DataRow("年度") = 2017 Then
e.DataRow("月均文明单位奖") = 600
Else
If fdr7 IsNot Nothing And e.DataRow("个人状态") = "现职" Then
e.DataRow("月均文明单位奖") = format((e.DataRow("基本工资_小计") + e.DataRow("补贴_小计") + e.DataRow("平时考核奖月均额") _
+ fdr7("月均文明单位奖") + e.DataRow("月均年终一次性奖") + e.DataRow("月均平安建设奖") + e.DataRow("月均目标考核奖") + e.DataRow("月均全国文明城市奖"))/12,"0")
If e.DataRow("月均文明单位奖") < 600 Then
e.DataRow("月均文明单位奖") =600
Else
e.DataRow("月均文明单位奖") = format((e.DataRow("基本工资_小计") + e.DataRow("补贴_小计") + e.DataRow("平时考核奖月均额") _
+ fdr7("月均文明单位奖") + e.DataRow("月均年终一次性奖") + e.DataRow("月均平安建设奖") + e.DataRow("月均目标考核奖") + e.DataRow("月均全国文明城市奖"))/12,"0")
End If
ElseIf fdr7 IsNot Nothing And fdr8 IsNot Nothing And e.DataRow("个人状态") = "退休" Or e.DataRow("个人状态") = "离休" Then
e.DataRow("月均文明单位奖") = format((e.DataRow("基本养老金") + e.DataRow("补贴_物业补贴") + e.DataRow("离休干部月均生活补贴") _
+ fdr7("月均文明单位奖") + fdr8("月均健康休养费") + e.DataRow("月均健康休养费") + e.DataRow("月均全国文明城市奖"))/12,"0")
If e.DataRow("月均文明单位奖") < 600 Then
e.DataRow("月均文明单位奖") = 600
Else
e.DataRow("月均文明单位奖") = format((e.DataRow("基本养老金") + e.DataRow("补贴_物业补贴") + e.DataRow("离休干部月均生活补贴") _
+ fdr7("月均文明单位奖") + fdr8("月均健康休养费") + e.DataRow("月均健康休养费") + e.DataRow("月均全国文明城市奖"))/12,"0")
End If
End If
End If
End Select
加好友 
发短信
Post By：2018/3/13 16:32:00 [只看该作者]
