Dim tb As Table = Tables("采购单物料选择_table1") For Each dr As DataRow In DataTables("采购订单明细").DataRows ids = ids & ",'" & dr("料号") &"'" nps = nps & ",'" & dr("请购单号") &"'" Next ids= ids.Trim(",") nps= nps.Trim(",") tb.Filter = "OPN Not IN (" & ids & ") And 请购单号 Not In (" & nps & ")"