none
Ativando AllowPaging do GridView RRS feed

  • Pergunta

  • 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

    quinta-feira, 21 de junho de 2012 15:57

Todas as Respostas

  • 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.

    quinta-feira, 21 de junho de 2012 18:20
  • Robson desculpe, mas não compreendi a tua sugestão.
    quinta-feira, 21 de junho de 2012 21:22
  • 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/

    sexta-feira, 22 de junho de 2012 21:55
  • Não Samuel tem mais de 4 registros.
    sexta-feira, 22 de junho de 2012 23:17
  • 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


    sexta-feira, 22 de junho de 2012 23:25