树的生成

mililiwell 2007-01-24 07:02:09

'加载菜单树
Sub LoadTreeMenu(ByVal dv As DataView)

Dim i As Int16
' Dim _tv As ComponentArt.Web.UI.TreeView
Dim dv1 As DataView
dv1 = cdatabind("select * from fram", "fram01 desc") ’绑定数据

For i = 0 To dv1.Count - 1 ' znone as地区 ByRef _tv As ComponentArt.Web.UI.TreeViewNode
Dim zone As ComponentArt.Web.UI.TreeViewNode = New ComponentArt.Web.UI.TreeViewNode
zone.Text = dv1(i).Item("fram02") 'zone
zone.Value = dv1(i).Item("fram01") 'zone代码

Me.TreeView1.Nodes.Add(zone)
Next

For i = 0 To 1 ' Me.TreeView1.Nodes.Count - 1
Dim zonecode As String
zonecode = "select distinct fram04 from fram"
Dim dv2 As DataView
Dim j As Int16

dv2 = cdatabind("select * from prat", "prat01 desc")‘绑定数据
For j = 0 To 1 'company 公司dv2.Count - 1
Dim company As ComponentArt.Web.UI.TreeViewNode = New ComponentArt.Web.UI.TreeViewNode
company.Text = dv2(j).Item("prat03")
company.Value = dv2(j).Item("prat04")
company.Nodes.Add(company)

'find dept
Dim k As Int16
Dim dv3 As DataView
dv3 = cdatabind("select * from praja_v", "员工号 desc")

For k = 0 To 1 'dept 部门Me.TreeView1.Nodes.Count - 1 dv3.Count - 1
Dim dept As ComponentArt.Web.UI.TreeViewNode = New ComponentArt.Web.UI.TreeViewNode
dept.Text = dv3(k).Item("部门名称")
dept.Value = dv3(k).Item("部门代码")

'find cars
Dim m As Int16
Dim dv4 As DataView
dv4 = cdatabind("select * from piab", "piab01 desc")

For m = 0 To 1 'car 车牌号码dv4.Count - 1
Dim car As ComponentArt.Web.UI.TreeViewNode = New ComponentArt.Web.UI.TreeViewNode
car.Text = dv4(m).Item("piab06")
car.Value = dv4(m).Item("piab06")
car.Nodes.Add(car)
dept.Nodes.Add(car)
Next
' dept.Nodes.Add(dept)
company.Nodes.Add(dept)

Next

' company.Nodes.Add(company)
Me.TreeView1.Nodes(i).Nodes.Add(company)
Next

Next

End Sub
我节点加的哪里不对？？
我数据库设计成中文名称字段名
地区编号 piac01
地区名称 piab02
公司编号 piab03
公司名称 piac04
部门代码 piac05
部门名称 piac06
上级代码 piac07
但是我不知道怎么加进去。

...全文