主题：语法解法

Dim trv厂商 As WinForm.TreeView = e.Form.Controls("Trv供货厂商")

trv厂商.Nodes.Clear   '清除所有节点

'====添加目录树的【节点】

For i As Integer = 0 To bl_trv厂商.Length-1

    Dim trvnd厂商 As WinForm.TreeNode

    trvnd厂商=trv厂商.Nodes.Add("Root" & i,bl_trv厂商(i))

Next