请教下，这两个代码如何能够不冲突 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教下，这两个代码如何能够不冲突

共有97人关注过本帖树形打印复制链接主题：请教下，这两个代码如何能够不冲突

SUV2258

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

加好友

发短信

等级：幼狐帖子：73 积分：676 威望：0 精华：0 注册：2020/9/1 6:19:00

请教下，这两个代码如何能够不冲突 发帖心情

Post By：2024/12/16 20:59:00 [只看该作者]

If e.DataCol.Name = "委托单编号" Then

If e.NewValue > "" AndAlso e.NewValue.StartsWith("ZRJC-WT-2024-") = False Then

e.NewValue = "ZRJC-WT-2024-" & e.NewValue

End If

If e.DataCol.Name = "委托单编号" Then

If e.DataRow.IsNull("委托单编号") = False Then

e.DataRow("校验记录编号") = e.DataRow("委托单编号").replace("-WT-", "-JL-")

e.DataRow("校验报告编号") = e.DataRow("委托单编号").replace("-WT-", "-BG-")

e.DataRow("校验编号") = e.DataRow("委托单编号").replace("-WT-","|").split("|")(1)

End If

此主题相关图片如下：2.png

表中有送委托单编号列的代码有以上两个，但这两个似乎有冲突了，不能进行修改了，修改后显示如下错误信息

有点蓝

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

加好友

发短信

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

Post By：2024/12/16 21:34:00 [只看该作者]

提示的意思是列的字符长度不够大，和代码无关：http://www.foxtable.com/webhelp/topics/0036.htm

另外第一段代码应该放到datacolchanging事件，第2段代码应该放到datacolchanged事件。不同事件有不同的用途，不是所有代码挤到一个事件了事的