customerreviewcontrol.ascx.vb

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

Imports NetShopForge.Library.Product

Partial Class Shop_Product_Controls_CustomerReviewControl
    Inherits System.Web.UI.UserControl

    Private _ProductReviewList As Generic.List(Of ProductReviewInfo)
    Public ProductID As Integer
    Public Property ProductReviewList() As Generic.List(Of ProductReviewInfo)
        Get
            Return _ProductReviewList
        End Get
        Set(ByVal value As Generic.List(Of ProductReviewInfo))
            _ProductReviewList = value
        End Set
    End Property

    Private Sub BindReview()

     
        If _ProductReviewList.Count = 0 Then

            ReviewLink.Text = String.Format(Global.Resources.GlobalResources.PRODUCT_REVIEW_REVIEWLINKNO, ProductID)
        Else
            ReviewLink.Text = String.Format(Global.Resources.GlobalResources.PRODUCT_REVIEW_REVIEWLINKHAS, ProductID)
            rptReviews.DataSource = _ProductReviewList
            rptReviews.DataBind()
        End If

    End Sub

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


End Class