老师你好，我想问一下这代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师你好，我想问一下这代码

共有2576人关注过本帖树形打印复制链接主题：老师你好，我想问一下这代码

11112

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

等级：幼狐帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00

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

If e.DataCol.Name = "记录日期" Then

Dim v As Integer = val(e.DataRow("处理时间"))

If e.DataRow.IsNull("记录日期") = False AndAlso v > 30 '不能大于1000天,自己改为合适的值

If e.DataRow("记录日期")> Date.Today.AddDays(clng(Tables("table_3").current("处理时间"))* -1) Then

e.DataRow("状态")="跟进中"

Else

e.DataRow("状态")="跟进中(已超时)"

End If

End If 我改了很多个结果都是算法溢出 var clng等

11112

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

等级：幼狐帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00

Post By：2021/9/25 9:26:00 [显示全部帖子]

还是算法溢出，If e.DataCol.Name = "记录日期" Then

msgbox(1)

Dim v As long = val(e.DataRow("处理时间"))

msgbox(v)

If e.DataRow.IsNull("记录日期") = False AndAlso v > 30 '不能大于1000天,自己改为合适的值

msgbox(e.DataRow("记录日期"))

If e.DataRow("记录日期")> Date.Today.AddDays(v * -1) Then

e.DataRow("状态")="跟进中"

Else

e.DataRow("状态")="跟进中(已超时)"

End If

这个调试并没有弹出来，应该没有报错把，就溢出问题有点难搞

总数 13 上一页 1 2

主题：老师你好，我想问一下这代码