If e.DataCol.Name = "卡一" OrElse e.DataCol.Name = "卡三" OrElse e.DataCol.Name = "卡五" Then '如果
Dim d1 As Double = Math.Abs(e.DataRow("卡一"))
Dim d2 As Double = Math.Abs(e.DataRow("卡三"))
Dim d2 As Double = Math.Abs(e.DataRow("卡五"))
If d1 > 900 AndAlso d1 < 1800 Then
d1 = 900
ElseIf d1 >= 1800 AndAlso d1 < 2700 Then
d1 = 1800
ElseIf d1 >= 2700 Then
d1 = 2700
Else
d1 = 0
End If
If d2 > 900 AndAlso d2 < 1800 Then
d2 = 900
ElseIf d2 >= 1800 AndAlso d2 < 2700 Then
d2 = 1800
ElseIf d2 >= 2700 Then
d2 = 2700
Else
d2 = 0
End If
If d3 > 900 AndAlso d3 < 1800 Then
d3 = 900
ElseIf d3 >= 1800 AndAlso d3 < 2700 Then
d3 = 1800
ElseIf d3 >= 2700 Then
d3 = 2700
Else
d3 = 0
End If
e.DataRow("加班工时") = d1 + d2 + d3
End If
老师，上面代码报错，提示“变量d1在封闭块中隐藏变量，
Dim d1 As Double = Math.Abs(e.DataRow("卡一"))，
加好友 
发短信
Post By：2022/5/7 19:07:00 [只看该作者]
