categories.ascx.vb

来自「Visual Basic.NET控件时尚编程百例」· VB 代码 · 共 37 行

Imports StoreCommon.Services

Public MustInherit Class Categories
    Inherits System.Web.UI.UserControl
    Protected WithEvents dlistCategories As System.Web.UI.WebControls.DataList

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        '实例化一个商品分类的公共组件服务
        Dim objCatalog As New StoreCommon.Services.Categories()
        Dim objCatalogDataset As New DataSet()
        objCatalogDataset.Clear()
        '填充数据集
        objCatalogDataset = objCatalog.GetProductCategories
        '数据绑定到DataList控件，从而显示商品的类别
        dlistCategories.DataSource = _
        objCatalogDataset.Tables("Categories").DefaultView
        dlistCategories.DataBind()
    End Sub

End Class