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 |
