menu绑定数据库实现二级菜单问题

[jianruide]

请教各位大侠，我是新手，我想用menu控件做菜单栏，绑定数据库2个表，一个根菜单，一个用于子菜单。treeview控件做到了，但menu出错
代码For i = 1 To DepartmentNum
DepartmentName(i - 1) = ds.Tables("MyDepartment").Rows(i - 1).Item(1).ToString()
Dim menunode As New MenuItem()
menunode.Text = DepartmentName(i - 1)
menunode.Value = DepartmentName(i - 1)
Menu1.Items.Add(menunode)

daTeam = New OleDbDataAdapter("select * from Team Where 部门= '" & DepartmentName(i - 1) & "'", conn)
dsTeam = New DataSet
daTeam.Fill(dsTeam, "MyTeam")
TeamNum = dsTeam.Tables("MyTeam").Rows.Count
If TeamNum > 0 Then
Session(i & "TeamNum") = TeamNum
ReDim TeamName(TeamNum - 1)
For j = 1 To TeamNum
TeamName(j - 1) = dsTeam.Tables("MyTeam").Rows(j - 1).Item(1).ToString

Dim menuchildnode As New MenuItem()
menuchildnode.Text = TeamName(j - 1)
menuchildnode.Value = TeamName(j - 1)
' Menu1.Items.Add(menuchildnode)
Menu1.Items(0).ChildItems.Add(menuchildnode)
Next j
End If
Next i
运行结果

[智者知已应修善业]

提供一下所需的数据XML内容供调试用.

[jhonsonzhang]

应使用linq to sql 来实现
linqSQL类里面加上这2个表，department,team
dim dc=new datacontext'加你自己的数据上下文
dim qry1=from r in dc.department join dc.team on dc.department.departName like team.departName
select r
dim qryDpart=from r in qry1
select dName=distinct r.departName
for each r in qryDpart
dim mnu1=new menuitem
menu1.text=r.dname
menu1.value=r.dname
dim childQry=from r in qry1
select r.teamName where r.departname like menu1.value
if childqry.count>0 then
for each r in childqry
dim cMenu=new menuitem
cmenu.text=r.teamName
cmenu.value=r.teamName
menu1.items.add(cmenu)
next
end if

next

[jianruide]

谢谢各位的指导！