Dim Mytree As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim Myted As WinForm.TreeNode
Mytree.Nodes.Clear
Mytree.Nodes.Add("全部","全部")
For Each cl As DataCol In DataTables("表A").DataCols
Select Case cl.Name
Case "姓名","性别","登记时间","出生时间","住址"
Mytree.Nodes(0).Nodes.Add(cl.Name,"按" & cl.Name)
End Select
Next
For Each nd As WinForm.TreeNode In Mytree.AllNodes
If nd.Text.IndexOf("按性别") >= 0 Then
nd.Nodes.Add("男","男")
nd.Nodes.Add("女","女")
End If
Next
For Each nd As WinForm.TreeNode In Mytree.AllNodes
For Each dr As DataRow In DataTables("表A").DataRows
If dr IsNot Nothing Then
If nd.Text.IndexOf("登记时间") >= 0 Then
nd.Nodes.Add(dr("登记时间"))
ElseIf nd.Text.IndexOf("出生时间") >= 0 Then
nd.Nodes.Add(dr("出生时间"))
ElseIf nd.Text.IndexOf("住址") >= 0 Then
nd.Nodes.Add(dr("住址"))
End If
End If
Next
Next
For Each nd1 As WinForm.TreeNode In Mytree.AllNodes
For Each dr As DataRow In DataTables("表A").DataRows
If dr IsNot Nothing Then
If nd1.Text.IndexOf(dr("登记时间")) >= 0 Then
nd1.Nodes.Add(dr("姓名"))
ElseIf nd1.Text.IndexOf(dr("出生时间")) >= 0 Then
nd1.Nodes.Add(dr("姓名"))
ElseIf nd1.Text.IndexOf(dr("住址")) >= 0 Then
nd1.Nodes.Add(dr("姓名"))
ElseIf nd1.Text.IndexOf(dr("性别")) >= 0 Then
nd1.Nodes.Add(dr("姓名"))
End If
End If
Next
Next
加好友 
发短信
Post By：2013/11/29 11:59:00 [只看该作者]
