蓝老师,从一张表向另一张表复制数据的时候,如果需有复制行的某一单元格为空,比如来源表“第一类 履历材料”
的“材料类别”有一单元格为空,如何把空值也能复制到接收表的“项目”行中?
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If tab.SelectedPage.Name = "第一类 履历材料"
Dim Cols1() As String = {"档案编号","类号","材料类别","备注"}
Dim Cols2() As String = {"档案编号","类号","项目","备注"}
For Each dr1 As DataRow In DataTables("第一类履历材料").Select("[备注] <>''")
Dim dr2 As DataRow = DataTables("缺材料和补充情况").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
End If
[此贴子已经被作者于2020/9/2 11:50:41编辑过]