2010年11月15日

Menu兩層式選單

利用雙層迴圈產生兩層menu:

由資料庫去抓取資料,
我們的資料庫設計是:兩個表。
第一個資料表我設定用來抓取第一層選單的資料。
第二個資料表我設定用來抓取第二層選單的資料。
程式如下:
Public Sub Load_Data()

        If objProduct.GetProduct().Count > 0 Then
            For i As Integer = 0 To objProduct.Items.Count - 1
                Menu1.Items.Add(New MenuItem(objProduct.Items(i).ProductName, objProduct.Items(i).ProductId))

                If objSeries.GetItemsByProductId(objProduct.Items(i).ProductId).Count > 0 Then
                    For x As Integer = 0 To objSeries.GetItemsByProductId(objProduct.Items(i).ProductId).Count - 1
                        Menu1.Items(i).ChildItems.Add(New MenuItem(objSeries.Items(x).SeriesName, objSeries.Items(x).SeriesId))
                    Next

                End If
            Next

        End If
    End Sub



沒有留言:

張貼留言