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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码错误

共有2902人关注过本帖树形打印复制链接主题：代码错误

jick0526

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

等级：三尾狐帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00

代码错误

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

老师，下面这段代码哪里错了麻烦能帮我改下吗？谢谢！

If e.DataCol.name = "A列" OrElse e.DataCol.name = "b列" OrElse e.DataCol.name = "C列" Then

Dim fdr As DataRow = DataTables("Today").find("A列 = '" & e.DataRow("A列") & "'").find("C列 = '" & e.DataRow("C列") & "'")

If fdr IsNot Nothing AndAlso fdr("B列") <> e.DataRow("B列") Then

e.DataRow("错误") = "B列错误"

End If

jick0526

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

等级：三尾狐帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00

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

有表A和表B

当表A和表B的A,B.C列都相同，D列不相同时，表A的F列会显示"错误"

jick0526

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

等级：三尾狐帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00

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

老师，请问下这段代码我每次还要重置列才会自动更新，我想要只要A.B.C三列数值改变后就会自动更新，麻烦老师帮我改下谢谢！

If e.DataCol.name = "A列" OrElse e.DataCol.name = "b列" OrElse e.DataCol.name = "C列" Then

Dim fdr As DataRow = DataTables("Today").find("A列 = '" & e.DataRow("A列") & "' and B列 = '" & e.DataRow("B列") & "' and C列 = '" & e.DataRow("C列") & "'")

If fdr IsNot Nothing AndAlso fdr("D列") <> e.DataRow("D列") Then

e.DataRow("错误") = "B列错误"

Else

e.DataRow("错误") = ""

End If

主题：代码错误