How to define HeaderTemplate and ItemTemplate to the Repeater at runtime TBD
VB.NET
Dim ds As DataSet
PrivateSub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
ds = ’Assign proper value to datasetDim dc As DataColumn
Dim dr As DataRow
Dim rpthdr AsNew TemplateBuilder
Dim rptitem AsNew TemplateBuilder
Dim strval AsStringForEach dc In ds.Tables(0).Columns
If strval = '' Then
strval = dc.ColumnName & ' 'Else
strval = strval & dc.ColumnName & ' 'EndIfNext
rpthdr.AppendLiteralString(strval)
Repeater1.HeaderTemplate = rpthdr
Repeater1.DataSource = ds
Repeater1.DataBind()
EndSubFunction getData(ByVal objContainer As System.Web.UI.WebControls.RepeaterItem) AsStringDim i AsIntegerDim strval AsString = '<br>'For i = 0To ds.Tables('table').Columns.Count - 1If strval = '' Then
strval = objContainer.DataItem(i).ToString & ' 'Else
strval &= objContainer.DataItem(i).ToString & ' 'EndIfNext
strval = strval & '<br>'Return strval
EndFunction
The Repeater class is not derived from the WebControl class, like the DataGrid and DataList. Therefore, the Repeater lacks the stylistic properties common to both the DataGrid and DataList. What this boils down to is that if you want to format the data displayed in the Repeater, you must do so in the HTML markup. i.e using <b>/<u>.. tags
Dim SortField AsStringDim myconnection As SqlConnection
Dim myda As SqlDataAdapter
Dim ds As DataSet
Dim strConn AsStringDim SQLStmt AsString = 'Select * from Employees 'PrivateSub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
’ Put user code to initialize the page here
BindData()
EndSub’Page_LoadSub BindData()
strConn = 'Server=localhost;uid=sa;password=;database=northwind;'
myconnection = New SqlConnection(strConn)
myda = New SqlDataAdapter(SQLStmt, myconnection)
ds = New DataSet
myda.Fill(ds, 'AllTables')
Repeater1.DataSource = ds
Repeater1.DataBind()
EndSub’BindDataSub SortData(ByVal SortExpression AsString)
If ViewState('SortOrder') Is Nothing Then
ViewState('SortOrder') = ' ASC'ElseIf ViewState('SortOrder').ToString() = ' ASC' Then
ViewState('SortOrder') = ' DESC'Else
ViewState('SortOrder') = ' ASC'EndIfEndIf
SQLStmt = SQLStmt + ' ORDER BY ' + SortExpression.ToString() + ' ' + ViewState('SortOrder')
BindData()
EndSub’SortDataProtectedSub SortEmployeeIdClick(ByVal sender AsObject, ByVal e As EventArgs)
SortField = 'EmployeeId'
SortData(SortField)
EndSub’SortEmployeeIdClickProtectedSub SortFirstNameClick(ByVal sender AsObject, ByVal e As EventArgs)
SortField = 'FirstName'
SortData(SortField)
EndSub’SortFirstNameClickProtectedSub SortLastNameClick(ByVal sender AsObject, ByVal e As EventArgs)
SortField = 'LastName'
SortData(SortField)
EndSub’SortLastNameClickProtectedSub SortTitleClick(ByVal sender AsObject, ByVal e As EventArgs)
SortField = 'Title'
SortData(SortField)
EndSub’SortTitleClick
Share with