以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自行设置目录树，根据目录树名称进行筛选的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74400)
--  作者：huozhe
--  发布时间：2015/9/10 9:52:00
--  自行设置目录树，根据目录树名称进行筛选的问题

AfterLoad事件如下

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nde As WinForm.TreeNode
Dim s As String
Dim Values() As String
trv.Nodes.Add("按人员类别")
trv.SelectedNode = trv.Nodes("按人员类别")
s = DataTables("人员基本信息").GetComboListString("人员类别")
Values = s.split("|")
For i As Integer = 0 To Values.Length-1
    trv.SelectedNode.Nodes.Add(Values(i))
    trv.SelectedNode.Nodes(Values(i)).Ic
Next
trv.Nodes.Add("按性别")
trv.SelectedNode = trv.Nodes("按性别")
s = DataTables("人员基本信息").GetComboListString("性别")
Values = s.split("|")
For i As Integer = 0 To Values.Length-1
    trv.SelectedNode.Nodes.Add(Values(i))
    trv.SelectedNode.Nodes(Values(i)).Ic
Next


NodeMouseDoubleClick 事件如下

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
Dim s As String
s = e.node.name
    
    Select Case e.Node.Level
       Case 1
       Filter = "s = \'" & dr(s) & "\'"
       End Select
Tables("人员基本信息").Filter = Filter

出现未将对象引用设置到对象的实例错误，求大神。
[此贴子已经被作者于2015/9/10 10:04:10编辑过]
--  作者：大红袍
--  发布时间：2015/9/10 10:04:00
--  

不能用 Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行

 

Dim Filter As String
dim ary() as string = e.Node.FullName("\\")
Dim s As String
s = e.node.name

Select Case e.Node.Level
    Case 1
        Filter = s & " = \'" & ary(1) & "\'"
End Select
Tables("人员基本信息").Filter = Filter
--  作者：huozhe
--  发布时间：2015/9/10 10:06:00
--  
---------------------------
错误
---------------------------
编译错误:类型“Char”的值无法转换为“String 的 1 维数组”。



错误代码：Dim ary() As String = e.Node.FullName("\\")
---------------------------
确定   
---------------------------
--  作者：huozhe
--  发布时间：2015/9/10 10:26:00
--  
顶上来
--  作者：大红袍
--  发布时间：2015/9/10 10:30:00
--  

Dim ary() As String = e.Node.FullName.Split("\\")

 

http://www.foxtable.com/help/topics/2690.htm