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

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

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

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

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

SUV2258

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

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

Post By：2024/12/17 11:43:00 [显示全部帖子]

这两个代码是分别放在两个事件的

我理解错了，能否将DataColChanging事件中的

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

这个代码加上一个判断，当“序号”列中有字符"WX“时，数据更改成"ZRJC-WX-2024-" & e.NewValue

主题：请教下，这两个代码如何能够不冲突