Select Case e.DataCol.name
Case "刷卡一","刷卡二","刷卡三","刷卡四","刷卡五","刷卡六"
Dim dr As DataRow = e.DataRow
If dr.IsNull("刷卡一") Or dr.IsNull("刷卡二") Or dr.IsNull("刷卡三") Or dr.IsNull("刷卡四") Or dr.("星期")<>'星期六'Or dr.("星期")<>'星期天' Then
dr("休息") = Nothing
Else
Dim tp As TimeSpan
tp = (dr("刷卡二") - dr("刷卡一"))+(dr("刷卡四") - dr("刷卡三"))+(dr("刷卡六") - dr("刷卡五"))
dr("休息") = tp.TotalSeconds()
End If
End Select
上面报错,