同表复制行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 同表复制行

共有2127人关注过本帖树形打印复制链接主题：同表复制行

zhangjian222200

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1544 积分：10921 威望：0 精华：0 注册：2016/9/12 11:18:00

同表复制行

Post By：2019/6/6 21:18:00 [只看该作者]

Dim dr As DataRow = DataTables("资料").sqlFind("会员编号 = '" & huiybh & "'") '定义,迁移后，资料所在的行

Dim dr2 As DataRow = DataTables("资料").sqlFind("手机 = '" & shoujhm & "'") '会员,迁移前，资料所在的行

Dim jiubh As String = dr("编号") 'dr行的编号不改,其他都改

For Each dd As DataCol In dr.DataTable.DataCols

dr(dd.Name) = dr2(dd.Name)

dr2(dd.Name) = Nothing

dr("编号") = jiubh ’这一列（保留原有编号值），处理成，但是，其他列都是空值，如何正确将dr2全部赋值给dr？

dr2.Save

dr.Save

[此贴子已经被作者于2019/6/7 7:48:46编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107959 积分：549176 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/8 9:17:00 [只看该作者]

代码测试没有问题。截图说明一下

zhangjian222200

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1544 积分：10921 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2019/6/8 11:49:00 [只看该作者]

存入空值时间造成的，已解决

If dd.IsDate = False OrElse (dd.IsDate = True AndAlso dr2.IsNull(dd.Name) = False) Then

dr(dd.Name) = dr2(dd.Name)

dr2(dd.Name) = Nothing

End If

主题：同表复制行