- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]未将对象引用设置到对象的实例 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127125)
-- 发布时间：2018/11/6 11:51:00
-- [求助]未将对象引用设置到对象的实例
老师好：
现在把订单主表清空，重新新增行提示：未将对象引用设置到对象的实例，，请老师帮看看怎么调优，谢谢！
代码：
Dim r As Row = Tables("订单主表").Current
Dim fl As String = "订单编号 = \'" & r("订单编号") & "\'"
r.Load() \'加载父行
LockBaseMainForm() \'锁定主窗口
DataTables("订单明细").StopRedraw \'停止绘制订单明细
DataTables("订单明细").RemoveFor(fl) \'移除当前订单的订单明细
DataTables("订单明细").Appendload(fl) \'追载当前订单的订单明细
DataTables("订单明细").ResumeRedraw \'恢复绘制订单明细
UnLockBaseMainForm() \'解锁主窗口
-- 发布时间：2018/11/6 11:59:00
--
首先要判断一下Tables("订单主表").Current是否存在
-- 发布时间：2018/11/6 12:09:00
--
If r Is Nothing Then
msgbox("没有数据")
Else
\'其余代码
End If
-- 发布时间：2018/11/6 12:16:00
--
y2287958老师您好：我还不懂怎么写这种判断代码，请帮完善下，万分感谢！
[此贴子已经被作者于2018/11/6 12:16:31编辑过]
-- 发布时间：2018/11/6 14:36:00
--
Dim r As Row = Tables("订单主表").Current
If r is Nothing Then return
Dim fl As String = "订单编号 = \'" & r("订单编号") & "\'"
r.Load() \'加载父行
LockBaseMainForm() \'锁定主窗口
DataTables("订单明细").StopRedraw \'停止绘制订单明细
DataTables("订单明细").RemoveFor(fl) \'移除当前订单的订单明细
DataTables("订单明细").Appendload(fl) \'追载当前订单的订单明细
DataTables("订单明细").ResumeRedraw \'恢复绘制订单明细
UnLockBaseMainForm() \'解锁主窗口