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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 以A表中的数据为条件查找B表

共有2195人关注过本帖树形打印复制链接主题：以A表中的数据为条件查找B表

有点蓝

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

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

Post By：2017/6/13 17:27:00 [显示全部帖子]

DoubleClick事件

If e.Col.Name = "第十列" Then

e.Cancel = True '禁止进入编辑状态

Dim dr As DataRow = DataTables("表B").Find("第一列='" & e.Row("第十列") &"'")

If dr IsNot Nothing Then

其它处理

End If

有点蓝

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

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

Post By：2017/6/13 21:25:00 [显示全部帖子]

贴出你的代码，并说明列类型

有点蓝

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

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

Post By：2017/6/13 23:51:00 [显示全部帖子]

If e.Col.Name = "id" Then

Dim cz As DataRow = DataTables("表B").Find("id=" & e.Row("id"))

If cz Is Nothing Then

MessageBox.Show("查找的数据不存在,无法添加数据","提示")

Else

e.Cancel = True '禁止进入编辑状态

For Each dr As DataRow In DataTables("表B").Select("id=" & e.Row("id")) '赋值所有行

dr("id") = e.Row("id")

dr("第二列") = e.Row("第二列")

dr("第三列") = e.Row("第三列")

End If

如果是字符改为

DataTables("表B").Find("id='" & e.Row("id") & "'")

For Each dr As DataRow In DataTables("表B").Select("id='" & e.Row("id") & "'")

字符和数字的用法不一样的，不能一起用

主题：以A表中的数据为条件查找B表