Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "省","县","乡","村林班","横坐标","纵坐标","地区类别","小班号","图幅号","坡度","计划年度","作业年度","退耕还林地类别","林地权属","林木权属","林种","树种","植被配置类型","上报面积","管理情况_档案","管理情况_管护","管理情况_不动产权证书"
If e.DataRow.isnull("省") = False AndAlso e.DataRow.Isnull("县") = False AndAlso e.DataRow.Isnull("乡") = False AndAlso e.DataRow.Isnull("村林班") = False AndAlso e.DataRow.Isnull("横坐标") = False AndAlso e.DataRow.Isnull("纵坐标") = False AndAlso e.DataRow.Isnull("地区类别") = False AndAlso e.DataRow.Isnull("小班号") = False AndAlso e.DataRow.Isnull("图幅号") = False AndAlso e.DataRow.Isnull("计划年度") = False AndAlso e.DataRow.Isnull("作业年度") = False AndAlso e.DataRow.Isnull("退耕还林地类别") = False AndAlso e.DataRow.Isnull("林地权属") = False AndAlso e.DataRow.Isnull("林木权属") = False AndAlso e.DataRow.Isnull("林种") = False AndAlso e.DataRow.Isnull("树种") = False AndAlso e.DataRow.Isnull("植被配置类型") = False AndAlso e.DataRow.Isnull("上报面积") = False Then
Dim nma() As String = {"省","县","乡","村林班","横坐标","纵坐标","地区类别","小班号","图幅号","计划年度","作业年度","退耕还林地类别","林地权属","林木权属","林种","树种","植被配置类型","上报面积","管理情况_档案","管理情况_管护","管理情况_不动产权证书"} 'A表数据来源列
Dim nmb() As String = {"省","县","乡","村林班","横坐标","纵坐标","地区类别","小班号","图幅号","计划年度","作业年度","退耕还林地类别","林地权属","林木权属","林种","树种","植被配置类型","上报面积","管理情况_档案","管理情况_管护","管理情况_不动产权证书"} 'B表数据接收列
For j As Integer = 1 To 3
dr = DataTables("四五小班表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Next
End If
End Select
加好友 
发短信
Post By：2017/6/23 9:50:00 [显示全部帖子]
