Hello,

I am creating a DataPager TemplatePagerField at runtime and trying to
replicate the following paging:

http://www.frequency-decoder.com/demo/table-sort-revisited/paginate/

At the moment this is not working very well. A postback is made every
time I click a button or a number.

I think it is my calculation on my TemplatePagerField PagerCommand
event.

Could someone help me out?

Thank You,

Miguel

Here is my code:

PagerCommand event handler

   Private Sub tpftags_PagerCommand(ByVal sender As Object, ByVal e
As DataPagerCommandEventArgs)

     ' Check which button raised the event
     Select Case e.CommandName

       Case "Next"
         Dim newIndex As Integer = e.Item.Pager.StartRowIndex +
e.Item.Pager.PageSize
         If newIndex <= e.TotalRowCount Then
           e.NewStartRowIndex = newIndex
           e.NewMaximumRows = e.Item.Pager.MaximumRows
         End If

       Case "Previous"
         Dim newIndex As Integer = e.Item.Pager.StartRowIndex +
e.Item.Pager.PageSize
         If newIndex >= e.TotalRowCount Then
           e.NewStartRowIndex = e.Item.Pager.StartRowIndex -
e.Item.Pager.PageSize
           e.NewMaximumRows = e.Item.Pager.MaximumRows
         End If

       Case "First"
         e.NewStartRowIndex = 0
         e.NewMaximumRows = e.Item.Pager.MaximumRows

       Case "Last"
         e.NewStartRowIndex = e.Item.Pager.MaximumRows -
e.Item.Pager.PageSize
         e.NewMaximumRows = e.Item.Pager.MaximumRows

       Case "Number"
         e.NewStartRowIndex = Convert.ToInt32(e.CommandArgument)
         e.NewMaximumRows = e.Item.Pager.MaximumRows

     End Select

   End Sub

Class that implements ITemplate:

 Public Class PagerTemplate
   Implements ITemplate

   Public Sub InstantiateIn(ByVal container As Control) Implements
ITemplate.InstantiateIn

     Dim lbfirst As New LinkButton
     lbfirst.Text = "«"
     lbfirst.CommandName = "First"
     container.controls.add(lbfirst)

     Dim lbprevious As New LinkButton
     lbprevious.Text = "<"
     lbprevious.CommandName = "Previous"
     container.controls.add(lbprevious)

     Dim cont As DataPagerFieldItem = CType(container,
DataPagerFieldItem)
     Dim a As DataPager = CType(cont.NamingContainer, DataPager)

     Dim currentPage As Integer = (a.StartRowIndex / a.PageSize) + 1
     Dim totalPages As Integer = a.TotalRowCount / a.PageSize

     For i = currentPage To totalPages

       Dim lbnumber As New LinkButton
       lbnumber.Text = i.ToString
       lbnumber.CommandArgument = i.ToString
       lbnumber.CommandName = "Number"
       container.controls.Add(lnnumber)

     Next i

     Dim lbnext As New LinkButton
     lbnext.Text = ">"
     lbnext.CommandName = "Next"
     container.Controls.Add(lbnext)

     Dim lblast As New LinkButton
     lblast.Text = "»"
     lblast.CommandName = "Last"
     container.Controls.Add(lblast)

   End Sub ' InstantiateIn

#End Region ' Implementation

#Region "Controls Events"

#End Region ' Controls Events

 End Class ' PagerTemplate