productfeaturecontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 24 行

Imports NetShopForge.Library.Product
Partial Class Shop_Product_Controls_ProductFeatureControl
    Inherits System.Web.UI.UserControl


    Public objProduct As ProductInfo
    Private Sub BindFeature()
        Dim pf As New Generic.List(Of ProductFeatureInfo)
        pf = ProductController.GetProductFeatureList(1)
        rpFeature.DataSource = pf
        rpFeature.DataBind()

        Me.Visible = (rpFeature.Items.Count > 0)

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            BindFeature()
        End If
    End Sub

End Class