如下图：
此主题相关图片如下：截图04.jpg
关系式如下：
1、2017年的文明单位奖为600元，2018年的“上年度文明单位奖”为600元。
2、自2018年起，“本年度文明单位奖”＝（基本工资+津补贴+上年度文明单位奖）/12
3、“上年度文明单位奖”＝本年度（如：年度为2019年）的上一年的“本年度文明单位奖”（即2018年的）
写了一个代码，但不行，请专家看看：
Select Case e.DataCol.Name
Case "年度","月均文明单位奖"
Dim fdr7 As DataRow = e.DataTable.find("年度 = '" & e.DataRow("年度") & "'-1 And 身份证号 = '" & e.DataRow("身份证号") & "'", "月均文明单位奖")
If e.DataRow("月均文明单位奖") = Nothing Then
e.DataRow("上年度文明单位奖") = Nothing
Else
If e.DataRow("年度") = 2018 Then
e.DataRow("上年度文明单位奖") = 600
ElseIf e.DataRow("年度") > 2018 Then
e.DataRow("上年度文明单位奖") = fdr7("月均文明单位奖")
End If
End If
End Select
加好友 
发短信
Post By：2018/3/16 11:27:00 [只看该作者]
