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编辑过]
加好友 
发短信
Post By：2015/9/10 9:52:00 [显示全部帖子]
