主题：求助,这段筛选代码要怎么改

Dim ids As String
Dim nps As String

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 & ")"

在【OPN】=料号  并且【请购单号】=【请购单号】的情况下就不载入

这样子筛选好像AND不起作用？

要如何修改呢