請教各位大俠，我是新手，我想用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
運行結果
uj5u.com熱心網友回復：
提供一下所需的資料XML內容供除錯用.uj5u.com熱心網友回復：
應使用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=https://bbs.csdn.net/topics/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=https://bbs.csdn.net/topics/r.teamName
menu1.items.add(cmenu)
next
end if
next
uj5u.com熱心網友回復：
謝謝各位的指導！轉載請註明出處，本文鏈接：https://www.uj5u.com/net/132256.html
標籤：VB.NET
上一篇：多臺機器負載，如何快速發布程式？