学步园

数据库结构
menu_id         menu_text     menu_parid
010                1                     Null
010-001         11                   010
010-002         12                   010
010-002-001  121                 010-002
010-002-002  122                 010-002
020                 2                     Null
020-001          21                   020
020-002          22                   020

sql脚步：

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[testtable]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[testtable]
GO

CREATE TABLE [dbo].[testtable] (
 [menu_id] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
 [menu_text] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
 [menu_parid] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY]
GO

根据以上数据库表内容动态加载菜单，源码如下：

Public Class Form1</p> <p> Private ConnString As String = "Data Source=(local);Initial Catalog=tempdb;Integrated Security=True"</p> <p> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim theMenu As New ContextMenuStrip</p> <p> Dim sql As String = "select * from testtable where menu_parid is null "<br /> Dim rst As DataSet = ExecuteSQL(sql)<br /> If rst IsNot Nothing Then<br /> Dim dt As DataTable = rst.Tables(0)<br /> For i As Integer = 0 To dt.Rows.Count - 1<br /> Dim MenuItem As New ToolStripMenuItem(dt.Rows(i).Item("menu_text").ToString)<br /> Call GetMenuItem(MenuItem, dt.Rows(i).Item("menu_id").ToString)<br /> theMenu.Items.Add(MenuItem)<br /> Next<br /> End If</p> <p> Me.ContextMenuStrip = theMenu<br /> End Sub</p> <p> Private Function GetMenuItem(ByVal item As ToolStripMenuItem, ByVal id As String) As String<br /> Dim sql As String = "select * from testtable where menu_parid='" + id + "'"<br /> Dim rst As DataSet = ExecuteSQL(sql)<br /> If rst IsNot Nothing Then<br /> Dim dt As DataTable = rst.Tables(0)<br /> For i As Integer = 0 To dt.Rows.Count - 1<br /> Dim MenuItem As New ToolStripMenuItem(dt.Rows(i).Item("menu_text").ToString)<br /> Call GetMenuItem(MenuItem, dt.Rows(i).Item("menu_id"))<br /> item.DropDownItems.Add(MenuItem)<br /> Next<br /> End If<br /> End Function</p> <p> Public Function ExecuteSQL(ByVal strSQL As String) As DataSet<br /> Dim sqlConnection As New System.Data.SqlClient.SqlConnection(Me.ConnString)<br /> Dim rst As System.Data.DataSet = Nothing</p> <p> Try<br /> sqlConnection.Open()</p> <p> rst = New System.Data.DataSet<br /> Dim adpt As New System.Data.SqlClient.SqlDataAdapter(strSQL, sqlConnection)<br /> adpt.Fill(rst) : adpt.Dispose()<br /> Return rst<br /> Catch ex As Exception<br /> Throw New Exception(ex.Message)<br /> Finally<br /> sqlConnection.Close()<br /> End Try</p> <p> Return rst<br /> End Function</p> <p>End Class<br />