以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助,这段筛选代码要怎么改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28140)
--  作者：even0898
--  发布时间：2013/1/20 11:49:00
--  求助,这段筛选代码要怎么改

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不起作用？

要如何修改呢

 

 
--  作者：even0898
--  发布时间：2013/1/20 14:26:00
--  
求高手来看看，实在郁闷，难道not in不能用 and来做逻辑连接吗？
--  作者：lin_hailun
--  发布时间：2013/1/21 11:57:00
--  
 合成的表达式是没错的，逻辑错误了。

 b.Filter = "Not(OPN In (" & ids & ") And 请购单号 In (" & nps & "))"

或者

 b.Filter = "OPN Not IN (" & ids & ") Or 请购单号 Not In (" & nps & ")"