Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "返利单价","全年应返数量","全年已返数量","全年未返数量","全年未返金额","第一季度实际数量","第一季度调整数量","第一季度计提数量","第一季度计提金额","第二季度实际数量","第二季度调整数量","第二季度计提数量","第二季度计提金额","第三季度实际数量","第三季度调整数量","第三季度计提数量","第三季度计提金额","第四季度实际数量","第四季度调整数量","第四季度计提数量","第四季度计提金额"
If dr1.IsNull("全年应返数量") OrElse dr1.IsNull("全年已返数量") Then
dr1("全年未返数量") = Nothing
Else
dr1("全年未返数量") = round2(dr1("全年应返数量") - dr1("全年已返数量"),2)
End If
If dr1.IsNull("返利单价") OrElse dr1.IsNull("全年未返数量") Then
dr1("全年未返金额") = Nothing
Else
dr1("全年未返金额") = round2(dr1("全年未返数量") * dr1("返利单价"),2)
End If
If dr1.IsNull("第一季度实际数量") Then
dr1("第一季度计提数量") = Nothing
Else
dr1("第一季度计提数量") = round2(dr1("第一季度实际数量") + dr1("第一季度调整数量"),2)
End If
If dr1.IsNull("返利单价") OrElse dr1.IsNull("第一季度计提数量") Then
dr1("第一季度计提金额") = Nothing
Else
dr1("第一季度计提金额") = round2(dr1("第一季度计提数量") * dr1("返利单价"),2)
End If
If dr1.IsNull("第二季度实际数量") Then
dr1("第二季度计提数量") = Nothing
Else
dr1("第二季度计提数量") = round2(dr1("第二季度实际数量") + dr1("第二季度调整数量"),2)
End If
If dr1.IsNull("返利单价") OrElse dr1.IsNull("第二季度计提数量") Then
dr1("第二季度计提金额") = Nothing
Else
dr1("第二季度计提金额") = round2(dr1("第二季度计提数量") * dr1("返利单价"),2)
End If
If dr1.IsNull("第三季度实际数量")Then
dr1("第三季度计提数量") = Nothing
Else
dr1("第三季度计提数量") = round2(dr1("第三季度实际数量") + dr1("第三季度调整数量"),2)
End If
If dr1.IsNull("返利单价") OrElse dr1.IsNull("第三季度计提数量") Then
dr1("第三季度计提金额") = Nothing
Else
dr1("第三季度计提金额") = round2(dr1("第三季度计提数量") * dr1("返利单价"),2)
End If
If dr1.IsNull("第四季度实际数量") Then
dr1("第四季度计提数量") = Nothing
Else
dr1("第四季度计提数量") = round2(dr1("第四季度实际数量") + dr1("第四季度调整数量"),2)
End If
If dr1.IsNull("返利单价") OrElse dr1.IsNull("第四季度计提数量") Then
dr1("第四季度计提金额") = Nothing
Else
dr1("第四季度计提金额") = round2(dr1("第四季度计提数量") * dr1("返利单价"),2)
End If
End Select