| 12
 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