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()
以上
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CPUの考え方を教えてください ...
-
ルート要素ノードが2個ある場合?
-
SNMP リンクダウンとノードダ...
-
ツリービューのノードをダブル...
-
TreeView の初期表示について
-
RSSからblog(ブログ)の本文を抽...
-
あるノードリストに、特定の名...
-
ToolStripMenuItemのクリックイ...
-
昔Winnyってありましたけど、あ...
-
ノード数とは?
-
【C#】XPathを使用してのノード...
-
replaceChildメソッドについて
-
ノードとは
-
CTreeCtrlで、あるノード以下だ...
-
重複するものを消したい
-
xmlファイルが上手にHTMLに変換...
-
バッチファイルでテキストファ...
-
4バイトを10進数に変換する方法
-
ASP.NETでツリービューを作成し...
-
特殊記号が勝手にエスケープさ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
CPUの考え方を教えてください ...
-
SNMP リンクダウンとノードダ...
-
ルート要素ノードが2個ある場合?
-
昔Winnyってありましたけど、あ...
-
C#でTreeViewのCheckBoxのサイ...
-
同じタグ名の項目取得
-
XML文書の指定した属性値を持つ...
-
複数のマックPCによる数値計算...
-
TreeView の初期表示について
-
あるノードリストに、特定の名...
-
TreeViewに重複する値をセット
-
ノードとは
-
C#のツリービューでツリーノー...
-
2分探索木の高さを求めるプロ...
-
C# TreeView 効率良いノード追...
-
TreeViewの再表示のちらつきを...
-
TreeViewで複数ノードの選択は...
-
4色定理はなぜグラフ理論で証...
-
ツリービューのノードをダブル...
-
ツリービューの使い方が・・・
おすすめ情報