需要实现的目标是：折叠模式下，增加1个新子行，如果所在的父行是末级子行，则不允许增加下级子行BeforeAddDataRow内代码：
Dim cr As Row = Tables("flbm").Current '定义cr 并获得当前行
If cr IsNot Nothing AndAlso Tables("flbm").GridTreeVisible Then '如果当前处于折叠模式
If cr("isend") = True Then '如果父行的末级标志为真，取消新增子行
MessageBox.show(cr("flbmID")) ‘输出调试信息，父行有字段数据
e.Cancel = True ‘取消新增行
MessageBox.show("父行为末级,无法新增子行!")
End If
End If
上述代码执行后，出现错误：
.NET Framework 版本：4.0.30319.17929
Foxtable 版本：2
022.8.18.1
错误所在事件：菜单,AddRow,Click
详细错误信息：
Object reference not set to an instance of an object.
请问如何解决？
加好友 
发短信
Post By：2024/3/13 17:53:00 [只看该作者]
