Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]父表&子表 一起克隆


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

主题：[求助]父表&子表 一起克隆
帅哥哟，离线，有人找我吗？
舞楼名角
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：1129 威望：0 精华：0 注册：2014/11/13 16:20:00 		  发帖心情 Post By：2018/7/19 12:46:00 [显示全部帖子]

如果代码中“名称”列是由比如由第二列+第三列+第四列等等好几列不为空时代码组合而成的，而名称是父子表关联列，那么以上代码该如何调整呢？谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
舞楼名角
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：1129 威望：0 精华：0 注册：2014/11/13 16:20:00 		  发帖心情 Post By：2018/7/19 12:54:00 [显示全部帖子]

Dim r As Row = Tables("订单").Current
Dim dnew As Row = Tables("订单").AddNew
Dim name As String = r("名称") & "_复件"
For Each c As Col In Tables("订单").Cols
    If c.Name = "名称" Then
        dnew(c.Name) = name
    ElseIf c.Name <> "_Identify" Then
        dnew(c.Name) = r(c.Name)
    End If
Next

Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("订单明细")
Dim rc As DataRow
For Each dr As DataRow In drs
    rc = dr.Clone
    rc("名称") = name
Next

这个代码中名称列已有，也是在datacolchanged把你各个列的值合并进去。这样在克隆的时候名称列中加不上”_复制“字符
 回到顶部
帅哥哟，离线，有人找我吗？
舞楼名角
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：1129 威望：0 精华：0 注册：2014/11/13 16:20:00 		  发帖心情 Post By：2018/7/19 13:28:00 [显示全部帖子]

这个代码中名称列已有，也是在datacolchanged把你各个列的值合并进去。这样在克隆的时候名称列中加不上”_复制“字符

 回到顶部
帅哥哟，离线，有人找我吗？
舞楼名角
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：1129 威望：0 精华：0 注册：2014/11/13 16:20:00 		  发帖心情 Post By：2018/7/19 17:45:00 [显示全部帖子]

我取消了红色部分的代码，因为红色部分会重新生成“名称”列的内容，所有没有成功，取消红部分，改为手动录入，还是可以的。
Dim r As Row = Tables("订单").Current
Dim dnew As Row = Tables("订单").AddNew
Dim name As String = r("名称") & "_复件"
For Each c As Col In Tables("订单").Cols
    If c.Name = "名称" Then
        dnew(c.Name) = name
    ElseIf c.Name <> "_Identify" Then
        dnew(c.Name) = r(c.Name)
    End If
Next

Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("订单明细")
Dim rc As DataRow
For Each dr As DataRow In drs
    rc = dr.Clone
    rc("名称") = name
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询