以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于IN 的表达式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49343)
--  作者：ap9709130
--  发布时间：2014/4/16 12:49:00
--  关于IN 的表达式

我的订单主表和明细表是用indentify 建立了关联

我想把所选的父行的的子行明细全部显示出来，代码如下：

If e.Row.Checked = True Then
 Dim ids As Integer
    For Each dr As Row In Tables("采购发票管理_Table1").GetCheckedRows
        ids = ids & "," & dr("_Identify") & ""
    Next
      
Tables("采购发票管理_Table2").Filter = "[订单编号] in (" & ids & ") And [类型] =\'进项\'"
End If

 

1行是没有问题，但超过一行就不行了，我知道应该是 IN 的用法出了问题，请教各位，要怎么改？多谢！
--  作者：y2287958
--  发布时间：2014/4/16 12:54:00
--  
试试这个:

Tables("采购发票管理_Table2").Filter = "[订单编号] in (" & ids.TrimStart(",") & ") And [类型] =\'进项\'"