1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Imports System.Data
Imports System.Data.DataSet
Imports System.Data.SqlClient
Imports System.Data.Common
Partial Class ExamplesDataList_Categories
Inherits System.Web.UI.Page
Private Class MyTemplate
Implements ITemplate
Dim itemcount As Integer = 0
Sub InstantiateIn(ByVal container As Control) _
Implements ITemplate.InstantiateIn
Dim lc As New Literal()
lc.Text = "Item number: " & itemcount.ToString & "<BR>"
itemcount += 1
container.Controls.Add(lc)
End Sub
End Class
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Repeater1.ItemTemplate = New MyTemplate()
SqlDataAdapter.Fill(DataSet1)
Repeater1.DataBind()
End Sub
End Class |
Partager