以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  同表复制行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136053)

--  作者：zhangjian222200 --  发布时间：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 Next dr("编号") = jiubh ’这一列（保留原有编号值），处理成，但是，其他列都是空值，如何正确将dr2全部赋值给dr？ dr2.Save dr.Save [此贴子已经被作者于2019/6/7 7:48:46编辑过]

--  作者：有点蓝 --  发布时间：2019/6/8 9:17:00 --   代码测试没有问题。截图说明一下

--  作者：zhangjian222200 --  发布时间：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