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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → if问题

共有1502人关注过本帖树形打印复制链接主题：if问题

jick0526

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

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

if问题

Post By：2018/1/19 20:48:00 [只看该作者]

老师，有表A表B两个表，当A列一样时，B列没有一个一样，C列会显示失败，否则则为空，如下图所示，这样的代码要怎么写，谢谢！

表A

表B

有点蓝

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

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

Post By：2018/1/19 21:06:00 [只看该作者]

没有一个一样？指的什么不一样

jick0526

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

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

Post By：2018/1/19 21:31:00 [只看该作者]

比如表A和表B的A列都是002，表A的B列是47和25，而表B的B列却是99，而不是47或25，也就是说和表A的B列都对应不上，那么就显示失败，

比如表A和表B的A列都是003，表A的B列是476和13，而表B的B列是476，有一个一样，都有476，所以显示为空，也就是说当A列一样的情况下，B列只要有一个对应的上，就为空，如果一个都对应不上，则显示失败

有点蓝

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

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

Post By：2018/1/19 22:02:00 [只看该作者]

表BDataColChanged事件

Select Case e.DataCol.name

Case "A列","B列"

Dim dr As DataRow = DataTables("表A").Find("A列 = '" & e.DataRow("A列") & "' and B列 = '" & e.DataRow("B列") & "' ")

If dr Is Nothing Then

e.DataRow("C列") = "失败"

Else

e.DataRow("C列") = Nothing

End If

End Select

主题：if问题