递归函数如何判断object is null？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 递归函数如何判断object is null？

共有3343人关注过本帖树形打印复制链接主题：递归函数如何判断object is null？

lur320

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

等级：五尾狐帖子：1030 积分：8973 威望：0 精华：0 注册：2015/8/12 16:28:00

递归函数如何判断object is null？ 发帖心情

Post By：2019/7/31 11:32:00 [显示全部帖子]

在制作treenode时，想制作一个类似教材里面《递归函数使用实例》的方法来做一个BOM表。

教材里面在执行自定义程序的时候，有传递一个treenode给程序的args（1）。这样是treeview里面最底层就是这个“全部”的节点。

而我如果不想传递一个基础节点给递归函数，让函数自己判断object是否是空，如果是空，自动在底层加node，否则就是在参数的node下面加。

我试过 Dim nd As WinForm.TreeNode=args（1）

if nd.name="" then

.....

当传递一个空的args给程序后，nd.name会报错。

请问如何判断object 是空？

lur320

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

等级：五尾狐帖子：1030 积分：8973 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/8/7 11:38:00 [显示全部帖子]

我这样做报错了。

Exception has been thrown by the target of an invocation.

Index was outside the bounds of the array.

我的自定义程序是：

Dim lbl As WinForm.NumericComboBox

Dim lblname As WinForm.TreeNode =args(0)

Dim tv As WinForm.TreeView =args(1)

If tv IsNot Nothing Then

。。。。。

Return Nothing

Else

MessageBox.Show(1) 这段代码都不能执行到。

Forms("new_MO").RemoveControl(lblname.name)

Return Nothing

End If

lur320

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

等级：五尾狐帖子：1030 积分：8973 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/8/7 11:40:00 [显示全部帖子]

OK了，

外面的引用要这样写。Functions.Execute("addlbl",e.node,Nothing)才可以

主题：递归函数如何判断object is null？