| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 复制关联表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42075) |
| -- 作者：方沈 -- 发布时间：2013/11/3 18:00:00 -- 复制关联表 新建“窗口1” “窗口1”建3个表，绑定：订单表，订单明细，订单分析表（订单表是父表，订单明细表是子表，订单分析表没有关系） 窗口1建一个按钮，取名“导出订单明细”
要求：在“窗口1”的“订单表”选择任何一行，然后点击“导出订单明细”按钮，这时，在“订单分析表”中增加“订单表”中选择行相关系的“订单明细”所有行。
我写了代码：
这样写会复制订单明细的所有内容，而我需要的是复制跟“订单表”（父表）选中行相关的“订单明细表”
以上 谢谢 |
| -- 作者：czy -- 发布时间：2013/11/3 19:00:00 -- 加上Filter（填充条件）啊 |
| -- 作者：方沈 -- 发布时间：2013/11/3 19:13:00 -- 兄台能否劳驾帮我写一下代码 谢谢 |
| -- 作者：有点甜 -- 发布时间：2013/11/3 19:18:00 -- 改一下红色的代码，把列名改一下。 f.SourceCols = "年" \'指定数据来源列 f.DataTable = DataTables("年月分析表") f.DataCols = "年" \'指定数据接收列 f.Filter = "订单编号 = \'" & tables("订单").current("订单编号") & "\'"
f.Fill() \'填充数据 |
| -- 作者：程兴刚 -- 发布时间：2013/11/3 19:22:00 -- Dim f As New Filler f.Filter = "关联列 = \'" & Tables("订单表").Current("关联列") & "\'" [此贴子已经被作者于2013-11-3 19:22:53编辑过]
|
| -- 作者：程兴刚 -- 发布时间：2013/11/3 19:24:00 -- 晕，如出一辙，马后炮 |
| -- 作者：方沈 -- 发布时间：2013/11/3 19:54:00 -- 谢谢各位，成功了 |
| -- 作者：方沈 -- 发布时间：2013/11/3 20:49:00 -- 程兄与有点甜写的一样的，都厉害
程兄和有点甜在论坛的大作都很多，真是佩服两位，向你们学习，致敬
|