[求助]从另一种表上找到所有符合条件的值，然后写入同一张表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]从另一种表上找到所有符合条件的值，然后写入同一张表

共有2325人关注过本帖树形打印复制链接主题：[求助]从另一种表上找到所有符合条件的值，然后写入同一张表

新航程小何

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

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

[求助]从另一种表上找到所有符合条件的值，然后写入同一张表 发帖心情

Post By：2015/11/8 16:44:00 [只看该作者]

各位老师，我想实现的功能是：有两张表：表a和表b，表A中有一列数据是需要从表b中获取，同时这两张表前面四列是一样的，但是每行数据不是按顺序对应的。我想就是通过以表B的前四列为查询条件，找到A中对应的行，然后把数值写入符合条件的行内。

此主题相关图片如下：qq截图20151108163843.jpg

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/8 16:48:00 [只看该作者]

新航程小何

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

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

Post By：2015/11/8 17:08:00 [只看该作者]

谢谢老师，我写了如下代码，功能实现了

For Each dr As Row In Tables("ProSafe").rows

Dim pr As DataRow

Dim filter As String

filter = "油品类型 = '" & dr("油品类型") & "' And 果料来源或品种 = '" & dr("果料来源或品种") & "' And 油瓶类型 = '" & dr("油瓶类型") & "'and 规格='" & dr("规格") & "'"

pr = DataTables("统计表1").Find(filter)

If pr IsNot Nothing Then

pr("安全库存数量")=dr("安全库存数量")

End If

主题：[求助]从另一种表上找到所有符合条件的值，然后写入同一张表