以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51626)
--  作者：wjliu
--  发布时间：2014/5/30 8:24:00
--  目录树报错
针对表建立目录树 时 不如对表a的1 2 3 4 列建立目录树 当其中有一列的某行忘填数据时运行目录树就提：
.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.3.8.1
错误所在事件：窗口,导航,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。


请教老师有没有解决办法
--  作者：Bin
--  发布时间：2014/5/30 8:24:00
--  
上例子,纸上不谈兵
--  作者：wjliu
--  发布时间：2014/5/30 8:25:00
--  
设置必填是一个方法 还有其他的方法没
--  作者：wjliu
--  发布时间：2014/5/30 8:25:00
--  
在目录树代码中有没有办法解决
--  作者：Bin
--  发布时间：2014/5/30 8:28:00
--  
建议您用这个方法：
http://www.foxtable.com/help/topics/1485.htm

先找出是哪一行出错，然后分析原因，搞不定，贴出代码，并告诉我们运行到哪一行出错，以及错误提示。
--  作者：wjliu
--  发布时间：2014/6/4 13:26:00
--  
上传不了附件
--  作者：wjliu
--  发布时间：2014/6/4 13:27:00
--  
目录树报错 在表a中客户等级中有个没有填 就报错 如果填了就用通过 
另外我想在客户分组中按表a的动态目录树来格式来在窗口
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目20.table

的目录树分组中显示省、市、区县、镇、乡组居委会  请教各位老师了
--  作者：有点甜
--  发布时间：2014/6/4 14:27:00
--  

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

 

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