主题：跨表填充

窗口中的表,需要fill订单表中的数据,条件是,订单表中的"编号"、"订单日期"与进度表的"编号"、"订单日期"一致,且进度表未完工.

 帮忙指点,谢谢.

Dim Arys As List(Of String()) 

Dim 2Arys As List(Of String()) 

Arys = DataTables("进度表").GetUniqueValues("[完工] <> '已完工'", "订单日期","编号")

2Arys = DataTables("订单").GetUniqueValues(" ", "订单日期","编号")

Tables("彩印明细_table1").Fill("Select [订单日期],[客户],[编号] From {订单管理} where  **** ","wanbang",True)

我的思路是，在进度表中取得 订单日期和编号的数组arys（）， 订单表里 订单日期和编号的数组barys()，然后筛选填充 barys()在arys()里的数据 

Dim Arys As List(Of String()) 

Arys = DataTables("进度表").GetUniqueValues("[完工] <> '已完工'", "订单日期","编号")

Dim Brys As List(Of String()) 

Brys = DataTables("订单").GetUniqueValues(" ", "订单日期","编号")

Tables("彩印明细_table1").Fill("Select [订单日期],[客户],[编号],[产品名称],[完工] From {订单} where Brys() in arys() ","wbbzd",True)

这样的功能  ， 代码可以实现吗？

我是要填充到窗口中的表里

窗口中得表 填充代码该怎么写呢，