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

从一三小班表复制部分列内容到四五小班表，可以每次都增加三行数据呢？求解！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小助手.rar

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))

End If

End Select