- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]未将对象引用设置到对象的实例 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63059)
-- 发布时间：2015/1/13 10:05:00
-- [求助]未将对象引用设置到对象的实例
运行如下代码报错：未将对象引用设置到对象的实例。
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,TEST窗口,刷新,Click
详细错误信息：
未将对象引用设置到对象的实例。
Dim dr As DataRow
For Each r1 As Row In Tables("TEST表").Rows
W1 = r1("测试1")
W2 = r1("测试2")
dr = DataTables("物料表").Find("物料编码 = \'"& W1 & "\'")
r1("数量1") = dr("成品")
dr = DataTables("物料表").Find("物料编码 = \'"& W2 & "\'")
r1("数量2") = dr("外协1")
r1("数量3") = dr("外协2")
Next
看来看去实在没看出问题。
-- 发布时间：2015/1/13 10:06:00
--
For Each r1 As Row In Tables("TEST表").Rows
W1 = r1("测试1")
W2 = r1("测试2")
Dim dr1 As DataRow
dr1 = DataTables("物料表").Find("物料编码 = \'"& W1 & "\'")
if dr1 isnot nothing then
r1("数量1") = dr1("成品")
end if
Dim dr2 As DataRow
dr2 = DataTables("物料表").Find("物料编码 = \'"& W2 & "\'")
if dr2 isnot nothing then
r1("数量2") = dr2("外协1")
r1("数量3") = dr2("外协2")
end if
Next
-- 发布时间：2015/1/13 10:09:00
--
回复太神速了
先谢谢
-- 发布时间：2015/1/13 10:17:00
--
完美解决，谢谢
-- 发布时间：2015/1/13 10:30:00
--
http://www.foxtable.com/help/topics/1508.htm