Foxtable(狐表)用户栏目专家坐堂 → 请教:在菜单或是窗口增加一个克隆行的按钮,想同时把子表的关联行也同时克隆,该怎样设置错码?


  共有5504人关注过本帖树形打印复制链接

主题:请教:在菜单或是窗口增加一个克隆行的按钮,想同时把子表的关联行也同时克隆,该怎样设置错码?

美女呀,离线,留言给我吧!
穆紫1212
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:90 积分:1146 威望:0 精华:0 注册:2012/3/23 13:49:00
请教:在菜单或是窗口增加一个克隆行的按钮,想同时把子表的关联行也同时克隆,该怎样设置错码?  发帖心情 Post By:2013/12/10 15:31:00 [只看该作者]

请教:在菜单或是窗口增加一个克隆行的按钮,想同时把子表的关联行也同时克隆,该怎样设置代码?
[此贴子已经被作者于2013-12-10 15:31:52编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/10 15:34:00 [只看该作者]

克隆当前行
同时也利用 GetChildRows 获得所有子表行,然后遍历所有行克隆.

 回到顶部
美女呀,离线,留言给我吧!
穆紫1212
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:90 积分:1146 威望:0 精华:0 注册:2012/3/23 13:49:00
  发帖心情 Post By:2013/12/10 16:07:00 [只看该作者]

麻烦给个代码呗,我试子好几遍也没搞定,图片点击可在新窗口打开查看帮个忙吧

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/10 16:11:00 [只看该作者]

没搞定就上个例子看看你是如何做的,我再帮你完善.

这个应该没难度的啊.

 回到顶部
美女呀,离线,留言给我吧!
穆紫1212
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:90 积分:1146 威望:0 精华:0 注册:2012/3/23 13:49:00
  发帖心情 Post By: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编辑过]

 回到顶部
美女呀,离线,留言给我吧!
穆紫1212
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:90 积分:1146 威望:0 精华:0 注册:2012/3/23 13:49:00
  发帖心情 Post By:2013/12/10 16:26:00 [只看该作者]

不知道这样写对不对图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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("订单明细")


 回到顶部