以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]从另一种表上找到所有符合条件的值，然后写入同一张表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76945)
--  作者：新航程小何
--  发布时间：2015/11/8 16:44:00
--  [求助]从另一种表上找到所有符合条件的值，然后写入同一张表
各位老师，我想实现的功能是：有两张表：表a和表b，表A中有一列数据是需要从表b中获取，同时这两张表前面四列是一样的，但是每行数据不是按顺序对应的。我想就是通过以表B的前四列为查询条件，找到A中对应的行，然后把数值写入符合条件的行内。

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20151108163843.jpg
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/11/8 16:48:00
--  

参考 http://www.foxtable.com/help/topics/1451.htm

 
--  作者：新航程小何
--  发布时间：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
Next