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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提示未将对象引用设置到对象的实例。

共有1800人关注过本帖树形打印复制链接主题：提示未将对象引用设置到对象的实例。

yetle

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

提示未将对象引用设置到对象的实例。 发帖心情

Post By：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))

' End If

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

Post By：2018/8/30 10:40:00 [只看该作者]

还是有这个提示

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/8/30 12:32:00 [只看该作者]

以下是引用yetle在2018/8/30 10:40:00的发言：
还是有这个提示

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

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

下一主题 >> << 上一主题

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