主题：目录筛选情况下的增加和行

 问题一：把筛选条件设置成

Dim t As Table = Tables("表A")
Dim idxs As String = ""
For Each r As Row In t.rows
    idxs &=  r("_Identify") & ","
Next
Dim nr As Row = Tables("表A").AddNew
idxs &= nr("_Identify") & ","

Tables("表A").filter = "_Identify in (" & idxs.trim(",") & ")"

 问题二：http://www.foxtable.com/webhelp/scr/2502.htm