主题：关联表自动增加行并复制全部内容

表A为父表，表B为子表，以编号关联， 表B有20行内容。希望用按钮实现，表A增加一编号，点击按钮，表B新增20行，并将20行内容全部复制。

上个小例子吧。

不太理解，如果是子表同步增加20行的话，你可以在父表的DatacolChanged事件加上下面的代码试试：

 

if e.datacol.name  = "编号" then

   if e.NewValue > "" then

       dim cnt as integer = e.datarow.GetChildRows("子表")

       for i as integer = cnt +1 to 20

            dim dr as datarow = datatables("子表").AddNew()

            dr("编号") = e.datarow("编号")

       next

   end if

end if

谢谢！不是主表每增加一个编码就复制20行内容。请见示例，父表有逻辑列，当点选逻辑后，子表增加19行，并复制各行的内容。此外，还附上了Excel模版，请将子表的内容写入黄色背景的格内。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复制子表.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:book1.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复制子表.foxdb

Thanks Isy,

 

我想要的效果是在主表增加一行ProductCode为1004，点击该行的逻辑列“Automation", 在子表增加该19行的内容，子表的的ProductCode也写入1004.

做了各窗体，将需求写在按钮处，请帮助实现。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:复制子表.foxdb

点击逻辑列，就增加，不管是True，还是False？

改变方案了，不打算用逻辑列了。打算用窗口中的按钮来执行。

只有主表新增行，才允许这样新增子表，并且只能操作一次？还是不限制？

还是主表所有行，都可以这样操作。