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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态错误提示

共有3208人关注过本帖树形打印复制链接主题：动态错误提示

13775189031

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

等级：四尾狐帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00

动态错误提示 发帖心情

Post By：2019/7/19 13:49:00 [显示全部帖子]

表1 ：角钢发料明细列“货位”

表2：货位名称列“货位”

想实现在角钢发料明细中填写货位时，与表货位名称中的“货位”信息进行对比，若不同，则进行动态措施提示！

一下代码要怎么改？

If e.DataCol.name = "货位" Then

If e.DataRow("货位")<> e.DataRow("货位") Then

e.DataRow.SetError("货位", "与货位名称不符!")

Else

e.DataRow.SetError("货位","")

End If

13775189031

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

等级：四尾狐帖子：825 积分：5733 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2019/7/30 13:20:00 [显示全部帖子]

动态错误提示：现在“货位”列设置了多值字段，如果单选没有问题，一旦多选，也会提示错误，怎么解决？

If e.DataCol.name = "货位" Then

Dim dr7 As DataRow = DataTables("货位名称").Find("[货位] = '" & e.DataRow("货位") & "'")

If dr7 Is Nothing Then

e.DataRow.SetError("货位", "与货位名称不符!")

Else

e.DataRow.SetError("货位","")

End If

主题：动态错误提示