Dim zz As List(Of DataRow) = DataTables("库存表").Select("标志=\'1\'")
以上的条件得到一个集合

然后就是怎么把这个集合 往一个空的集合追加

追加完的集合，怎么赋值给新的Datables或者赋值给tables(都是没有数据的)

直接对库存表筛选就行啊

Tables("库存表").filter = "标志=\'1\'"

或者，直接生成查询表

http://www.foxtable.com/webhelp/scr/0695.htm

或者填充数据啊

http://www.foxtable.com/webhelp/scr/1533.htm

http://www.foxtable.com/webhelp/scr/0680.htm

不是啊，如果可以直接筛选我就直接筛选了

现在Dim drs As List(Of DataRow)可以得到所有数据了，要怎么把这个新的集合赋值，然后再窗口中展示出来，我看Tables和Datatables都没办法直接展示

在窗口表table那里绑定你的表啊

http://www.foxtable.com/webhelp/scr/1905.htm

http://www.foxtable.com/webhelp/scr/1906.htm

谢谢

窗口的Tables绑定了DataTables("总部配货")

Dim drs As List(Of DataRow)=DataTables("总部配货").Select("")

sj=DataTables("库存表").Select("标志=\'1\'")
msgbox(sj.count)
drs.AddRange(sj)
msgbox(drs.count)

两张表的表结构是一样的，DataTables("总部配货")得到这个新的drs集合，需要怎么展示出来

对表格筛选啊，要说多少次？

Dim sj=DataTables("库存表").Select("标志=\'1\'")
Dim str As String = ""
For Each dr As DataRow In sj
    str &= "\'" & dr("编号") & "\',"
Next
Tables("总部配货").filter = "编号 in (\'" & str.trim(",") & "\')"

如果要填充，这样写代码啊，要说多少次？

http://www.foxtable.com/webhelp/scr/1533.htm

http://www.foxtable.com/webhelp/scr/0680.htm

我知道哪里问题，两个表不能直接addrange，谢谢