老师好，下面是按钮代码。有报错。Dim tv As WinForm.TreeView = Args(0)
tv.Nodes.Clear
Dim nd As WinForm.TreeNode
Dim name As String
Dim sname() As String
For Each f As WinForm.Form In Forms
name = f.Category
sname = name.Split("\")
Dim frmnd As WinForm.TreeNode
If sname.Length = 1 AndAlso sname(0) = "" Then
frmnd = tv.Nodes.Add(f.name)
Else
If tv.Nodes.Contains(sname(0)) = False Then
nd = tv.Nodes.Add(sname(0))
Else
nd = tv.Nodes(sname(0))
End If
For i As Integer = 1 To sname.Length - 1
If nd.Nodes.Contains(sname(i)) = False Then
nd = nd.Nodes.Add(sname(i))
Else
nd = nd.Nodes(sname(i))
End If
Next
frmnd = nd.Nodes.Add(f.name)
End If
Dim opened = f.Opened
f.Open
For Each c As object In f.controls
try
frmnd.Nodes.Add(c.name, c.name & " | " & c.Text)
catch ex As exception
frmnd.Nodes.Add(c.name)
End try
Next
If opened = False Then f.Close
Next
.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2017.4.22.1
错误所在事件：自定义函数按钮集合
详细错误信息：
调用的目标发生了异常。
已添加了具有相同键的项。
加好友 
发短信
Post By：2019/7/24 17:17:00 [只看该作者]
