Oracle階層問合せの結果よりVB.NETのTreeViewを作成する方法を教えてください。


・階層問合せのサンプル
SELECT LPAD(' ', 2*level-1)||SYS_CONNECT_BY_PATH(last_name, '/') "Path"
FROM employees
START WITH last_name = 'Kochhar'
CONNECT BY PRIOR employee_id = manager_id;

Path
---------------------------------------------------------------
/Kochhar
/Kochhar/Greenberg
/Kochhar/Greenberg/Faviet
/Kochhar/Greenberg/Chen
/Kochhar/Greenberg/Sciarra
/Kochhar/Greenberg/Urman
/Kochhar/Greenberg/Popp
/Kochhar/Whalen
/Kochhar/Mavris
/Kochhar/Baer
/Kochhar/Higgins
/Kochhar/Higgins/Gietz

VB.NET作成途中
Dim LEVEL_prev As Integer = 0
Dim node_prev As New TreeNode("")
Dim aryNODENO(16) As Integer
While (reader.Read())
NODE_NO = reader.Item("NODE_NO")
LEVEL = reader.Item("LEVEL")
PATH = reader.Item("PATH")
NAME = reader.Item("NAME")
Dim i As Integer
Dim node_cur As New TreeNode("")
node_cur.Expanded = True
node_cur.Text = strSITE_NAME

If intNODE_NO = 1 Then
' 新規ノードを準備する
TreeView2.Nodes.Add(node_cur)
Else
If intLEVEL_prev < intLEVEL Then
' 下位層へ移動の場合、新規ノードを準備する
TreeView2.Nodes(aryNODENO(intLEVEL - 1) - 1).ChildNodes.Add(node_cur)
ElseIf intLEVEL_prev = intLEVEL Then
'前のノードと同一階層
' 前のノードを上位階層へ追加
TreeView2.Nodes(aryNODENO(intLEVEL - 1) - 1).ChildNodes.Add(node_cur)

ElseIf intLEVEL_prev > intLEVEL Then
' '' 上位層へ移動の場合
'' ' ノードを上位階層へ追加
TreeView2.Nodes(aryNODENO(intLEVEL - 1) - 1).ChildNodes.Add(node_cur)
End If
End If
intLEVEL_prev = intLEVEL
node_prev = node_cur
End While
    Me.TreeView2.Nodes(0).Expand()
以上

このQ&Aに関連する最新のQ&A

lastname」に関するQ&A: 何故 last name?

A 回答 (1件)

作成中のコードに



NODE_NO = reader.Item("NODE_NO")
LEVEL = reader.Item("LEVEL")

などがありますが、実際には

PATH = reader.Item("PATH")

で取得できるデータが

/Kochhar
/Kochhar/Greenberg
/Kochhar/Greenberg/Faviet
/Kochhar/Greenberg/Chen
/Kochhar/Greenberg/Sciarra
/Kochhar/Greenberg/Urman
・・・

のようになっているということでよろしいでしょうか?

Oracle のデータの代わりにテキストデータでやってみましたけど、
↓みたいな感じでどうでしょうか。


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using tr As StreamReader = New StreamReader("NodeData.txt")
Dim line As String
line = tr.ReadLine()
Do While line IsNot Nothing
AddPath(line)
line = tr.ReadLine()
Loop
End Using
End Sub

Private Sub AddPath(ByVal line As String)
Dim paths() As String = line.Split("/")
Dim nc As TreeNodeCollection = Me.TreeView1.Nodes
Dim n As TreeNode
For i As Integer = 1 To paths.Length - 1
Dim ns() As TreeNode = nc.Find(paths(i), False)
If ns.Length = 0 Then
n = nc.Add(paths(i), paths(i))
Else
n = ns(0)
End If
nc = n.Nodes
Next
End Sub
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング