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