Ativando AllowPaging do GridView

Question

O GridView está em true no AllowPaging e 4 PageSize, mas a numeração no rodapé do grid fica desabilitado. Alguém tem alguma sugestão?

Protected Sub btnPesquisarEnd_Click(sender As Object, e As EventArgs) Handles btnPesquisarEnd.Click
        gvwEnd.DataSource = DSet.Tables("TBend")
        gvwEnd.DataBind()
        modoEnd.Text = ""
        Label2.Text = ""
    End Sub
 

    
    Private Sub gvwEnd_PageIndexChanged(sender As Object, e As System.EventArgs) Handles gvwEnd.PageIndexChanged
        Label17.Text = "PAG:" & gvwEnd.PageIndex + 1 & " /" & gvwEnd.PageCount
    End Sub

Answer 1

Wilson além do verifique qual em page settings o "Mode" e Position.

---

Caso a resposta seja útil ou responda sua questão, colabore marcando-a como resposta ou como útil.

Answer 2

Robson desculpe, mas não compreendi a tua sugestão.

Answer 3

Seu grid está sendo populado com mais de quatro itens? Porque se estiver com menos não vai aparecer mesmo. Só quando tiver mais que quatro.

---

http://samuelcazelli.blogspot.com/

Answer 4

Não Samuel tem mais de 4 registros.

Answer 5

Não Samuel tem mais de 4 registros. O código é esse:

Private Sub cargaDset()
        DSet.Tables.Clear()
        Dim DSet As New DataSet
               Dim Dadapter5 As OleDbDataAdapter = New OleDbDataAdapter
        Dadapter5.SelectCommand = New OleDbCommand("SELECT  code, catCad, tip, logr, num, A.sit, bair, telR, telC, telC, est, mun, ema, hom, nomcon, ponRef, ob, MUNN FROM tbCEnd A, tbCad B WHERE logr LIKE '%" + txtPesqE.Text + "%' AND A.mun = B.MUNCOD ORDER BY code DESC", New OleDbConnection(My.Settings.SIConecte))
        Dadapter5.Fill(DSet, "TBend")
    End Sub
Protected Sub gvwEnd_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvwEnd.RowDataBound
        If e.Row.RowType = DataControlRowType.Header Then
            e.Row.Cells(1).Text = "ID"
            e.Row.Cells(2).Visible = False
            e.Row.Cells(3).Text = "Tipo"
            e.Row.Cells(4).Text = "Logradouro"
            e.Row.Cells(5).Text = "Núm."
            e.Row.Cells(6).Visible = False
            e.Row.Cells(7).Visible = False
            e.Row.Cells(8).Visible = False
            e.Row.Cells(9).Visible = False
            e.Row.Cells(10).Visible = False
            e.Row.Cells(11).Visible = False
            e.Row.Cells(12).Visible = False
            e.Row.Cells(13).Visible = False
            e.Row.Cells(14).Visible = False
            e.Row.Cells(15).Visible = False
            e.Row.Cells(16).Visible = False
            e.Row.Cells(17).Visible = False
            e.Row.Cells(18).Text = "Município"
        End If
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Cells(0).Visible = True
            e.Row.Cells(1).Visible = True
            e.Row.Cells(2).Visible = False
            e.Row.Cells(3).Visible = True
            e.Row.Cells(4).Visible = True
            e.Row.Cells(5).Visible = True
            e.Row.Cells(6).Visible = False
            e.Row.Cells(7).Visible = False
            e.Row.Cells(8).Visible = False
            e.Row.Cells(9).Visible = False
            e.Row.Cells(10).Visible = False
            e.Row.Cells(11).Visible = False
            e.Row.Cells(12).Visible = False
            e.Row.Cells(13).Visible = False
            e.Row.Cells(14).Visible = False
            e.Row.Cells(15).Visible = False
            e.Row.Cells(16).Visible = False
            e.Row.Cells(17).Visible = False
            e.Row.Cells(18).Visible = True
        End If
    End Sub
 Protected Sub btnPesquisarEnd_Click(sender As Object, e As EventArgs) Handles btnPesquisarEnd.Click
        gvwEnd.DataSource = DSet.Tables("TBend")
        gvwEnd.DataBind()
        modoEnd.Text = ""
        Label2.Text = ""
    End Sub