主题：关于IN 的表达式

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

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

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

1行是没有问题，但超过一行就不行了，我知道应该是 IN 的用法出了问题，请教各位，要怎么改？多谢！