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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 运行一段时间后代码运行错误

共有1772人关注过本帖树形打印复制链接主题：运行一段时间后代码运行错误

有点蓝

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

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

Post By：2024/8/12 14:27:00 [显示全部帖子]

Tables("销售合同").Current.Save()

改为

e.DataRow.Save()

有点蓝

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

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

Post By：2024/8/12 14:51:00 [显示全部帖子]

这段代码没有这个提示，检查其它事件代码

有点蓝

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

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

Post By：2024/8/12 20:12:00 [显示全部帖子]

应该是合同编号出现了脏数据，比如本来应该全部是10位的编号，可能错录入了9位、11位的编号

另外如果是按年生成的编号，查询的时候也应该去判断一下年份

Dim d As Date = e.DataRow("签约时间")

Dim y As Integer = d.Year

Dim fd As Date = New Date(y,1,1) '获得该年的第一天
Dim ld As Date = New Date(y,12,31) '获得该年的最后一天

max = e.DataTable.SQLCompute("Max(合同编号)", "日期 >= '" & fd & "' And 日期 <= '" & ld & "' And [_Identify] <> " & e.DataRow("_Identify"))

msgbox(max) ‘学会调试！看看查询出来的最大值是什么

有点蓝

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

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

Post By：2024/8/12 21:59:00 [显示全部帖子]

datacolchanging加代码判断一下，如果编号不是10位就提示并e.cancel掉

主题：运行一段时间后代码运行错误