主题：目录树报错

针对表建立目录树 时 不如对表a的1 2 3 4 列建立目录树 当其中有一列的某行忘填数据时运行目录树就提：

上例子,纸上不谈兵

设置必填是一个方法 还有其他的方法没

在目录树代码中有没有办法解决

上传不了附件

目录树报错 在表a中客户等级中有个没有填 就报错 如果填了就用通过 

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

 

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