提示未将对象引用设置到对象的实例。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

注：有窗口表，副本，"大货用量表_table1"

Dim tbl As DataTable=Tables("大货用量表_table1").DataTable

Dim dr As DataRow

dr = tbl.Find("款号 = 'pd.text'")

Tables("大货用量表").stopredraw

Dim nma() As String = {"物料基本信息_物料大类","物料基本信息_客供","物料基本信息_物料名称""} 'A表数据来源列

Dim nmb() As String = {"物料基本信息_物料大类","物料基本信息_客供","物料基本信息_物料名称"} 'B表数据接收列

For Each dr In tbl.DataRows

' If DataTables("物料资料").DataRow("产品编号") Is Nothing Then

Dim r As DataRow = DataTables("大货用量表").addnew()

For n As Integer = 0 To nmb.length -1

r(nmb(n)) = dr(nma(n))

' End If

Tables("大货用量表").ResumeRedraw()

主题：提示未将对象引用设置到对象的实例。