Foxtable(狐表) → 用户栏目 → 专家坐堂 → 非关联子表复制，请教


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

主题：非关联子表复制，请教
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2451 积分：22615 威望：0 精华：0 注册：2011/3/29 17:14:00 		非关联子表复制，请教  发帖心情 Post By：2019/10/21 9:40:00 [只看该作者]

订单表 和 订单明细 共有订单ID列
希望在克隆的订单表时
将订单明细表 逻辑列 完成列  为否的一起克隆

http://www.foxtable.com/webhelp/index.htm?page=1533.htm   案例只有单表复制
[此贴子已经被作者于2019/10/21 9:41:02编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105932 积分：538729 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/21 10:01:00 [只看该作者]


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


加好友 发短信
等级：九尾狐 帖子：2451 积分：22615 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/10/21 10:22:00 [只看该作者]

还是没有搞定，请教老师了

两个表之间没有建立关联

Dim dr As DataRow = Tables("订单").Current.DataRow
Dim r As Row = Tables("订单").AddNew()
r("客户") = dr("客户")
r("工单号") = "GYS" & Format(Date.Now,"yyMMdd-HHmmss")

Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("订单明细")
Dim rc As DataRow
For Each drr As DataRow In drs
    rc = drr.Clone    
Next
[此贴子已经被作者于2019/10/21 10:22:44编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105932 积分：538729 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/21 10:28:00 [只看该作者]

Dim drs As List(Of DataRow)
drs = datatables("订单明细").select（"订单ID='" & dr（"订单ID"） & "' and 完成='否'"）
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2451 积分：22615 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/10/21 10:50:00 [只看该作者]

Dim dr As DataRow = Tables("订单").Current.DataRow
Dim r As Row = Tables("订单").AddNew()
r("客户") = dr("客户")
r("工单号") = "GYS" & Format(Date.Now,"yyMMdd-HHmmss")


Dim drs As List(Of DataRow)
drs = DataTables("订单明细").Select("工单号='" & dr("工单号") & "' and 完成='否'")
Dim rc As DataRow
For Each drr As DataRow In drs
    rc = drr.Clone
    rc("工单号") = dr("工单号")  我想被复制的行新的单号等于订单新建的工单号 
           同时将原来的单号写入入到  旧单号  列内可以被追踪
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105932 积分：538729 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/21 11:06:00 [只看该作者]

rc("工单号") = r("工单号") 

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


加好友 发短信
等级：九尾狐 帖子：2451 积分：22615 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/10/21 11:36:00 [只看该作者]

无法在 System.Boolean 和 System.String 上执行“=”操作。

Dim dr As DataRow = Tables("订单").Current.DataRow
Dim r As Row = Tables("订单").AddNew()
r("客户") = dr("客户")
r("工单号") = "GYS" & Format(Date.Now,"yyMMdd-HHmmss")


Dim drs As List(Of DataRow)
drs = DataTables("订单明细").Select("工单号='" & dr("工单号") & "' and 完成='否'")
Dim rc As DataRow
For Each drr As DataRow In drs
    rc = drr.Clone
    rc("工单号") = r("工单号")
Next




还有 原来的行的 工单号 要写入新行里的 旧单号 列内
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105932 积分：538729 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/21 12:05:00 [只看该作者]

drs = DataTables("订单明细").Select("工单号='" & dr("工单号") & "' and 完成=false")

rc("旧单号") = dr("工单号")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询