<%@ Register TagPrefix="CustomWebControls" Namespace="CustomWebControls" Assembly="CustomWebControls" %>
<%@ Import Namespace="System.Data" %>
<script language="VB" runat="server">
Public Sub Page_Load(sender As Object, ByVal e As EventArgs)
Dim i As Integer
Dim NewRow As DataRow
Dim Randomizer As New System.Random
Dim Responses as DataTable = New DataTable("Responses")
Responses.Columns.Add(New DataColumn("Id", GetType(Integer)))
Responses.Columns.Add(New DataColumn("DateSubmitted", GetType(Date)))
Responses.Columns.Add(New DataColumn("WebUserId", GetType(Integer)))
For i = 1 To 100
NewRow = Responses.NewRow()
With NewRow
.Item("Id") = i
.Item("DateSubmitted") = Now.AddDays(Randomizer.Next(-365, 365))
.Item("WebUserId") = 100000 + i + i Mod 5
End With
Responses.Rows.Add(NewRow)
Next
If Not Responses Is Nothing Then
Dim DSet As New DataSet("Test")
DSet.Tables.Add(Responses)
SpecialList.DataSource = DSet
SpecialList.DataBind()
End If
End Sub
Protected Sub BindData(ByVal sender As Object, ByVal e As RepeaterItemEventArgs)
Dim RefNum, MemberId, DateReceived As Label
Dim row As DataRowView
If e.Item.ItemType = ListItemType.AlternatingItem OrElse e.Item.ItemType = ListItemType.Item Then
With e.Item
RefNum = .FindControl("RefNum")
MemberId = .FindControl("MemberId")
DateReceived = .FindControl("DateReceived")
End With
row = CType(e.Item.DataItem, DataRowView)
RefNum.Text = row("Id")
MemberId.Text = row("WebUserId")
DateReceived.Text = String.Format("{0:d}", row("DateSubmitted"))
End If
End Sub
</script>
<form id="Form1" method="post" runat="server">
<p>Attempting to test the Custom Web Controls.</p>
<CustomWebControls:SortablePaginationRepeater id="SpecialList" runat="server" PageSize="10" PageButtonCount="5" PageLocation="TopAndBottom"
TableWidth="100%" PagerStyle="TextBox" GoButtonCssClass="Link" OnItemDataBound="BindData">
<SORTCOLUMN DisplayName="Reference" ColumnName="Id" />
<SORTCOLUMN DisplayName="Member Id" ColumnName="WebUserId" />
<SORTCOLUMN DisplayName="Date Received" ColumnName="DateSubmitted" />
<HEADERTEMPLATE>
<hr />
<TABLE width="100%">
<TBODY>
<TR>
<TH>
Reference</TH>
<TH>
Member Id</TH>
<TH>
Date Received</TH></TR>
</HEADERTEMPLATE>
<ITEMTEMPLATE>
<TR>
<TD align="center">
<asp:Label id="RefNum" runat="server"></asp:Label></TD>
<TD>
<asp:Label id="MemberId" runat="server"></asp:Label></TD>
<TD align="right">
<asp:Label id="DateReceived" runat="server"></asp:Label></TD>
</TR>
</ITEMTEMPLATE>
<FOOTERTEMPLATE></TBODY></TABLE><hr /></FOOTERTEMPLATE>
</CustomWebControls:SortablePaginationRepeater>
</form>
|