主题：目录树报错

不明白你的意思，这样写不报错

If Tables("表a").Rows.Count > 0 Then
   
    Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
    Dim nde As WinForm.TreeNode
    trv.CreateTree("表a", "客户分组")
    nde = trv.Nodes.Insert("按分组","按分组",0)
    nde.Ic
    Dim s As String
    Dim Values() As String
    For Each nd As WinForm.TreeNode In trv.AllNodes
        s = DataTables("表a").GetComboListString("客户分组")
        'If s > ""
        'Values = s.split("|")
        'For i As Integer = 0 To Values.Length-1
        'nd.Nodes.add(Values(i))
        'Next
        'End If
    Next
    For Each nd As WinForm.TreeNode In trv.AllNodes
        nd.Ic
        If nd.Level = 0 And nd.Name IsNot "按分组"
            nd.MoveRight
        End If
    Next
    'trv.Nodes.Add("按设备类型")
    'trv.SelectedNode = trv.Nodes("按设备类型")
    'trv.SelectedNode.Ic
    's = DataTables("设备表").GetComboListString("设备大类型")
    'Values = s.split("|")
    'Dim s2 As String
    'Dim Value2s() As String
    'For i As Integer = 0 To Values.Length-1
    'trv.SelectedNode.Nodes.Add(Values(i))
    's2 =  DataTables("设备表").GetComboListString("设备小类型","设备大类型 = '" & Values(i) & "'")
    'Value2s = s2.split("|")
    'For i2 As Integer = 0 To Value2s.Length-1
    'trv.SelectedNode = trv.Nodes("按设备类型").Nodes(Values(i))
    'trv.SelectedNode.Nodes.Add(Value2s(i2))
    'trv.SelectedNode.Nodes(Value2s(i2)).Ic
    'Next
    'trv.SelectedNode = trv.Nodes("按设备类型")
    'Next
    trv.Nodes.Add("按客户等级")
    trv.SelectedNode = trv.Nodes("按客户等级")

    For Each s In DataTables("表a").GetValues("客户等级")
        Dim nd As WinForm.TreeNode = trv.SelectedNode.Nodes.Add(s)
        nd.Ic      
    Next

    trv.Nodes.Add("按客户状态")
    trv.SelectedNode = trv.Nodes("按客户状态")
    For Each s In DataTables("表a").GetValues("客户等级")
        Dim nd As WinForm.TreeNode = trv.SelectedNode.Nodes.Add(s)
        nd.Ic 
       
    Next
    trv.Nodes.Add("按客户来源")
    trv.SelectedNode = trv.Nodes("按客户来源")
    For Each s In DataTables("表a").GetValues("客户等级")
        Dim nd As WinForm.TreeNode = trv.SelectedNode.Nodes.Add(s)
        nd.Ic     
    Next  
End If