top10.ascx.vb

《ASP.NET程序设计实用教程》源代码,这本书非常使用,有次源码更是锦上添花,谢谢使用

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports nsShop

Public Class top10: Inherits UserControl						'userinfo类继承自UserControl
	Public myRepeater As Repeater

	Private _KindId As Integer

	'定义一个只写属性
	Public WriteOnly Property KindId As String					'定义一个KindId属性      
		Set
			_KindId = Value										'利用Value关键字设置属性值
		End Set
	End Property

	'启动页面时执行本过程
	Sub Page_Load(sender As Object, e As EventArgs) 
		If Not Page.IsPostBack Then
			Dim dbs As New DataBusiness()
			Dim dv As DataView=dbs.GetTop10(_KindId)
			myRepeater.DataSource=dv
			myRepeater.DataBind()
		End If
	End Sub
	'该过程用于添加序号
	Sub MyRepeater_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) 
		'这个判断语句表示，只有对于数据行才执行
		If e.Item.ItemType=ListItemType.Item Or e.Item.ItemType=ListItemType.AlternatingItem  Then
			'下面找到标签控件
			Dim objlblNo As Label=e.Item.FindControl("lblNo")
			objlblNo.Text=e.Item.ItemIndex+1
		End If
	End Sub 
End Class