主题：复制关联表

新建“窗口1”

“窗口1”建3个表，绑定：订单表，订单明细，订单分析表（订单表是父表，订单明细表是子表，订单分析表没有关系）

窗口1建一个按钮，取名“导出订单明细”

要求：在“窗口1”的“订单表”选择任何一行，然后点击“导出订单明细”按钮，这时，在“订单分析表”中增加“订单表”中选择行相关系的“订单明细”所有行。

我写了代码：

谢谢

加上Filter（填充条件）啊

兄台能否劳驾帮我写一下代码

谢谢

Dim f As New Filler
f.SourceTable = DataTables("订单明细")
f.SourceCols = "年" '指定数据来源列
f.DataTable = DataTables("年月分析表")
f.DataCols = "年" '指定数据接收列

f.Filter = "关联列 = '" & Tables("订单表").Current("关联列") & "'"
f.Fill() '填充数据

程兄与有点甜写的一样的，都厉害

程兄和有点甜在论坛的大作都很多，真是佩服两位，向你们学习，致敬