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编辑过]