代码执行报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码执行报错

共有3734人关注过本帖树形打印复制链接主题：代码执行报错

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/16 16:57:00 [显示全部帖子]

Or dr.IsNull("刷卡四") Or dr.("星期")<>'星期六'Or dr.("星期")<>'星期天' Then

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 8:32:00 [显示全部帖子]

去掉4楼的红点

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 14:57:00 [显示全部帖子]

单引号改为双引号

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 16:03:00 [显示全部帖子]

f dr.IsNull("列1") Or dr.IsNull("列2") Or dr.IsNull("列3") Or dr.IsNull("列4") Or (dr("星期")<>"星期六" andalso dr("星期")<>"星期日" ) Then

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 16:39:00 [显示全部帖子]

您自己的代码判断了这4个列任何一个为空都不会计算

dr.IsNull("列1") Or dr.IsNull("列2") Or dr.IsNull("列3") Or dr.IsNull("列4")

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/17 16:54:00 [显示全部帖子]

贴出完整代码

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/18 8:50:00 [显示全部帖子]

Else

Dim tp1,tp2 As TimeSpan

tp1 = dr("列2") - dr("列1")

tp2 = dr("列6") - dr("列5")

'If dr("类型")= "B" Or (dr("星期")<>"星期六" AndAlso dr("星期")<>"星期日" ) Then

If dr("类型")= "B" Or (dr("星期")="星期六" AndAlso dr("星期")="星期日" ) Then

dr("工时") = tp1.TotalSeconds()

else

dr("工时") = tp2.TotalSeconds()

End If

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/18 13:37:00 [显示全部帖子]

“休息工时”和“工时”是2个列？

星期六和星期日和"类型=A、B有没有关系？

星期六和星期日通过dr("列6") - dr("列5")计算？非星期六和星期日通过dr("列2") - dr("列1")-8400计算？

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：代码执行报错