专家坐堂-目录树的节点expand错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tv1 As WinForm.TreeView = e.Form.Controls("Tree配置栏")

Dim tb1 As Table = Tables (e.Form.Name & "_table1")

Dim list_cd As New List(Of String)

For Each r As Row In tb1.Rows

list_cd.Add (r("菜单控件"))

For Each nd As WinForm.TreeNode In tv1.AllNodes

Dim s As String = nd.FullName

If list_cd.Contains (s) Then

nd.ForeColor = Color.red

nd.Backcolor =color.Yellow

Dim fnd As WinForm.TreeNode = nd.ParentNode

fnd.Expand ()

End If

‘-------------------------------------错误提示如下

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：窗口,菜单权限,Button1,Click

详细错误信息：

未将对象引用设置到对象的实例。

请您帮忙看看怎么回事？谢谢