ASP.NET

' This Method is responsible for reloading the data when a user event like a sort or <br />
    ' a filter is applied to the user control<br />
    Private Sub LoadData(ByVal b As Boolean)<br />
        'I need to load all my data into the repeater control.<br />
        Dim strConnectionString As String = sqlViewCalls.ConnectionString<br />
<br />
        Dim sqlConnection As SqlConnection = New SqlConnection(strConnectionString)<br />
        sqlConnection.Open()<br />
<br />
        Dim sqlDA As SqlDataAdapter<br />
        sqlDA = New SqlDataAdapter(hidViewString.Value.ToString() & hidQueryString.Value.ToString() & hidSortString.Value.ToString(), sqlConnection)<br />
<br />
        Dim dt As DataTable<br />
        dt = New DataTable()<br />
        sqlDA.Fill(dt)<br />
        sqlConnection.Close()<br />
<br />
        ' Create a new PagedDataSource<br />
        Dim pgItems As PagedDataSource<br />
        pgItems = New PagedDataSource()<br />
<br />
        ' Create a new DataView from the datatable we created before.<br />
        Dim dv As DataView = New DataView(dt)<br />
        ' Initialise the PagedDataSource and populate it.<br />
        pgItems.DataSource = dv<br />
        pgItems.AllowPaging = True<br />
        pgItems.PageSize = pgSize<br />
        pgItems.CurrentPageIndex = PageNumber<br />
<br />
        If b = True Then<br />
            If pgItems.PageCount > 1 Then<br />
                Dim pages As ArrayList = New ArrayList()<br />
                For index As Integer = 0 To (pgItems.PageCount() - 1)<br />
                    pages.Add((index + 1).ToString())<br />
                Next<br />
                hidLast.Value = (pages.Count() - 1).ToString()<br />
            Else<br />
                hidLast.Value = 0<br />
            End If<br />
        End If<br />
<br />
        lblPagination.Text = "   Page: " & (pgItems.CurrentPageIndex + 1).ToString() & " of " & pgItems.PageCount & " (" & pgItems.DataSourceCount & " Records)"<br />
<br />
        repResults.DataSource = pgItems<br />
        repResults.DataBind()<br />
<br />
End Sub

<br />
    Protected Sub ddlPageSize_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPageSize.SelectedIndexChanged<br />
        If ddlPageSize.SelectedIndex = 3 Then<br />
            pgSize = 2000000<br />
            PageNumber = 0<br />
            LoadData(True)<br />
            ' Code to enable buttons/disable buttons here<br />
        Else<br />
            pgSize = Integer.Parse(ddlPageSize.SelectedValue)<br />
            PageNumber = 0<br />
            LoadData(True)<br />
            ' Code to enable buttons/disable buttons here<br />
        End If<br />
    End Sub<br />

pgItems.DataSource = dv
If ddlPageSize.SelectedIndex = 3 Then
  pgItems.AllowPaging = False
Else
pgItems.AllowPaging = True
pgItems.PageSize = pgSize
End If