- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教：在菜单或是窗口增加一个克隆行的按钮，想同时把子表的关联行也同时克隆，该怎样设置错码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43571)
-- 发布时间：2013/12/10 15:31:00
-- 请教：在菜单或是窗口增加一个克隆行的按钮，想同时把子表的关联行也同时克隆，该怎样设置错码？
请教：在菜单或是窗口增加一个克隆行的按钮，想同时把子表的关联行也同时克隆，该怎样设置代码？
[此贴子已经被作者于2013-12-10 15:31:52编辑过]
-- 发布时间：2013/12/10 15:34:00
--
克隆当前行
同时也利用 GetChildRows 获得所有子表行,然后遍历所有行克隆.
-- 发布时间：2013/12/10 16:07:00
--
麻烦给个代码呗，我试子好几遍也没搞定，
帮个忙吧
-- 发布时间：2013/12/10 16:11:00
--
没搞定就上个例子看看你是如何做的,我再帮你完善.
这个应该没难度的啊.
-- 发布时间：2013/12/10 16:25:00
--
Tables("订单").Current.Clone()
Dim drs As List(Of DataRow)
drs = DataTables("订单").DataRows(0).GetChildRows("订单明细")
For Each dr As DataRow In drs
dr.Clone
Next
[此贴子已经被作者于2013-12-10 16:25:06编辑过]
-- 发布时间：2013/12/10 16:26:00
--
不知道这样写对不对
-- 发布时间：2013/12/10 16:32:00
--
Tables("订单").Current.Clone() Dim drs As List(Of DataRow) drs = DataTables("订单").DataRows(0).GetChildRows("订单明细") \'你这样不是永远克隆第一行的 子表行了吗? For Each dr As DataRow In drs dr.Clone Next 改为 drs = Tables("订单").Current.DataRows.GetChildRows("订单明细") |