以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提示未将对象引用设置到对象的实例。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124068)
--  作者：yetle
--  发布时间：2018/8/30 9:34:00
--  提示未将对象引用设置到对象的实例。
注：有窗口表，副本，"大货用量表_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))
      Next
\' End If
Next
Tables("大货用量表").ResumeRedraw()
--  作者：有点甜
--  发布时间：2018/8/30 9:56:00
--  

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
--  作者：yetle
--  发布时间：2018/8/30 10:40:00
--  
还是有这个提示
--  作者：有点甜
--  发布时间：2018/8/30 12:32:00
--  
以下是引用yetle在2018/8/30 10:40:00的发言：
还是有这个提示

 

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

 

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