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で質問しましょう!
似たような質問が見つかりました
- JavaScript 1日1回引けるJavaScriptおみくじについて 1 2022/12/12 22:28
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CPUの考え方を教えてください ...
-
昔Winnyってありましたけど、あ...
-
2分探索木の高さを求めるプロ...
-
同じタグ名の項目取得
-
VB6.0でDOMを使用して...
-
TreeViewについて
-
ToolStripMenuItemの選択(VB)
-
あるノードリストに、特定の名...
-
SNMP リンクダウンとノードダ...
-
XML文書の指定した属性値を持つ...
-
ルート要素ノードが2個ある場合?
-
ノード数とは?
-
ナップザック問題で複数の経路...
-
C# TreeView 効率良いノード追...
-
XMLで特定の兄弟のノードの数を...
-
ツリービューを閉じさせたくない。
-
カウントアップ
-
特殊記号が勝手にエスケープさ...
-
eclipseへのxmlファイル追加
-
東芝のDynabookなのですがアン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
CPUの考え方を教えてください ...
-
昔Winnyってありましたけど、あ...
-
SNMP リンクダウンとノードダ...
-
ルート要素ノードが2個ある場合?
-
同じタグ名の項目取得
-
あるノードリストに、特定の名...
-
ノードとは
-
TreeView の初期表示について
-
ツリービューのノードをダブル...
-
ノード数とは?
-
コンテキストメニュークリック...
-
XML文書の指定した属性値を持つ...
-
C#でtreeviewの指定ノードを選...
-
複数のマックPCによる数値計算...
-
VB6.0ツリービューについて
-
TreeViewの再表示のちらつきを...
-
VB6.0でDOMを使用して...
-
vbsのDOMDocumentで要素のText...
-
TreeViewで複数ノードの選択は...
-
C# TreeView 効率良いノード追...
おすすめ情報