Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
PUT_TREE_MENU("", treeMnu.Nodes) '新規作成 ツリービュー
End If
End Sub
Private Sub PUT_TREE_MENU(ByVal parent As String, ByVal nodes As TreeNodeCollection)
Dim ds As DataSet ' メニュー情報
Dim strPRG_ID As String = parent
With ds.Tables(0)
For i As Integer = 0 To .Rows.Count - 1
Dim node As New TreeNode()
Dim rootnode As New TreeNode()
If parent = "" And i = 0 Then
'最初の1回だけルートノードの作成
rootnode.Text = GSYA_NM & "メニュー"
nodes.Add(rootnode)
End If
'親ノード作成
If .Rows(i)("行") = 0 Then
node.NavigateUrl = ""
node.Text = .Rows(i)("名称")
node.Target = "_blank"
Me.PUT_TREE_MENU(.Rows(i)("桁"), node.ChildNodes)
Else '子ノード作成
node.NavigateUrl = .Rows(i)("プログラム")
node.Text = .Rows(i)("名称")
node.Target = "_blank"
End If