- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码执行报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161406)
-- 发布时间：2021/3/16 16:13:00
-- 代码执行报错
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
上面报错，
-- 发布时间：2021/3/16 16:16:00
--
Else
Dim tp1,tp2,tp3 As TimeSpan
tp1 = dr("刷卡二") - dr("刷卡一")
tp2 = dr("刷卡四") - dr("刷卡三") tp3 = dr("刷卡六") - dr("刷卡五")
dr("休息") = tp1.TotalSeconds() + tp2.TotalSeconds() + tp3.TotalSeconds()
End If
End Select
-- 发布时间：2021/3/16 16:41:00
--
If dr.IsNull("刷卡一") Or dr.IsNull("刷卡二") Or dr.IsNull("刷卡三") Or dr.IsNull("刷卡四") Or dr.("星期")<>\'星期六\'Or dr.("星期")<>\'星期天\' Then
报错，提示红色代码，“编译错误：应为标识符，我重新对一下，没有找到问题，具体哪出问题？
-- 发布时间：2021/3/16 16:57:00
--
Or dr.IsNull("刷卡四") Or dr.("星期")<>\'星期六\'Or dr.("星期")<>\'星期天\' Then
-- 发布时间：2021/3/17 0:15:00
--
还是报错，请老师看一下，纠正，谢谢
-- 发布时间：2021/3/17 8:32:00
--
去掉4楼的红点
-- 发布时间：2021/3/17 14:47:00
--
If dr.IsNull("列1") Or dr.IsNull("列2") Or dr.IsNull("列3") Or dr.IsNull("列4") Or dr("星期")<>\'星期六\'Or dr("星期")<>\'星期天\' Then
去掉还是报错
-- 发布时间：2021/3/17 14:57:00
--
单引号改为双引号
-- 发布时间：2021/3/17 15:19:00
--
不报错，但不执行计算
-- 发布时间：2021/3/17 15:33:00
--
说明没有符合的计算条件
If dr.IsNull("列1") Or dr.IsNull("列2") Or dr.IsNull("列3") Or dr.IsNull("列4") Or dr("星期")="星期六" Or dr("星期")="星期日" Then