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

Dim tbl As DataTable=Tables("大货用量表_table1").DataTable
Dim drs = tbl.Select("款号 = '" & pd.text & "'")
If drs.count > 0 Then
Tables("大货用量表").stopredraw

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

For Each dr As DataRow In drs
      Dim r As DataRow = DataTables("大货用量表").addnew()
      For n As Integer = 0 To nmb.length -1
           r(nmb(n)) = dr(nma(n))
      Next
Next
Tables("大货用量表").ResumeRedraw()
End If

1、你datacolchanged事件肯定有错误代码导致的。

2、或者屏蔽事件触发 http://www.foxtable.com/webhelp/scr/2218.htm