以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么实现从物料价格表中获取的集合值 去库存表查找符合条件的数据 如果没有找到就将库存表中不等于集合值的数据删除  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172912)
--  作者：cnsjroom
--  发布时间：2021/11/7 3:38:00
--  怎么实现从物料价格表中获取的集合值 去库存表查找符合条件的数据 如果没有找到就将库存表中不等于集合值的数据删除
怎么实现从物料价格表中获取的集合值  去库存表查找符合条件的数据   如果没有找到就将库存表中不等于集合值的数据删除

或者是先分别获取物料价格  库存表中的消费编号 产品名集合值  比对    删除没有比对的数据

如物料价格得到的结合值
001|A
002|B
如库存表的得到的结合值
002|B
001|A
003|C
因为003|c没有对等比对对象，就删除003|c这个数据值

当前代码如下：红色部分代码该怎么写呢？请老师们多多指导！

Dim dr As DataRow
Dim Products As List(Of String())
Products = DataTables("物料价格").GetValues("消费编号|产品名")
For Each Product As String() In Products
    dr = DataTables("库存表").Find("消费编号 = \'"&Product(0)&"\' and 产品名=\'"&Product(1)& "\'")
    If dr IsNot Nothing Then \'如果找到的话
        ……
    Else
        【找不到就删除】
    End If
Next
--  作者：狐狸爸爸
--  发布时间：2021/11/7 10:40:00
--  
Dim dr As DataRow
Dim Products As List(Of String())
Products = DataTables("库存表").GetValues("消费编号|产品名")
For Each Product As String() In Products
    dr = DataTables("物料价格").Find("消费编号 = \'"&Product(0)&"\' and 产品名=\'"&Product(1)& "\'")
    If dr IsNot Nothing Then \'如果找到的话
        ……
    Else
        DataTables("库存表").DeleteFor("消费编号 = \'"&Product(0)&"\' and 产品名=\'"&Product(1)& "\'")
    End If
Next