Autor Tema: Paginar (Leído 2205 veces)

The Black Boy · « **en:** Miércoles 4 de Enero de 2006, 03:03 »

este el el codigo que tengo para paginar un datagrid, pero aclaro que el datagrid lo creo por codigo, pero nose como hago para paginarlo, ni siquiera cuando lo ejecuto me muestra los botones de la paginacion por que

Código: Text

 
#Region &#34;Listar Usuarios BD&#34;
    Private Sub listar()
        Dim str = &#34;Select * From T002PRODUCTOS&#34;
        Dim comando As New SqlCommand(str, strcnnbd)
        adapter.SelectCommand = comando
        adapter.SelectCommand.CommandType = CommandType.Text
        adapter.SelectCommand.ExecuteNonQuery()
        adapter.Fill(dataset, &#34;Usuarios&#34;)
        mydatagrid.DataSource = dataset
        mydatagrid.DataBind()
        grilla()
        Me.Controls.Add(mydatagrid)
        strcnnbd.Close()
    End Sub
#End Region
#Region &#34;Setting Grilla&#34;
    Private Sub grilla()
        mydatagrid.BorderColor = mydatagrid.BorderColor.Black
        mydatagrid.GridLines = GridLines.Both
        mydatagrid.CellPadding = 3
        mydatagrid.CellSpacing = 0
        mydatagrid.Font.Bold = True
        mydatagrid.HeaderStyle.BackColor = mydatagrid.HeaderStyle.BackColor.Cornsilk
        paginar()
    End Sub
#End Region
#Region &#34;PAGINAR GRILLA&#34;
    Private Sub paginar()
        mydatagrid.AllowPaging = True
        mydatagrid.PageSize = 3
        mydatagrid.PagerStyle.Mode = PagerMode.NumericPages
        mydatagrid.PagerStyle.Position = PagerPosition.TopAndBottom
 
    End Sub
#End Region
 
 

que me hace falta

agradezco cualquier ayuda

Salu2

IGarcia

Hola blackboy!! Lo que te falta es poner el visualizar el paginador a true y así se te verán los números de página. Es decir poner el último sub de la siguiente manera:

Código: Text

 Private Sub paginar()
       mydatagrid.AllowPaging = True
       mydatagrid.PageSize = 3
       mydatagrid.PagerStyle.Mode = PagerMode.NumericPages
       mydatagrid.PagerStyle.Position = PagerPosition.TopAndBottom
 
       'Incluir la siguiente linea 
       mydatagrid.PagerStyle.Visible = True
 
End Sub
 

Y yo creo que así te debería funcionar. Suerte.

The Black Boy

no funcionó

no se que hacer todavia,

gracias por tu ayuda amigo

saludos

akai-chan

yo utilizo simplemente:

Private Sub DataGrid2_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid2.PageIndexChanged
Me.DataGrid2.CurrentPageIndex = e.NewPageIndex
Me.datagrid.databind 'actualizar el datagrid
End Sub

se q el mensaje es d hace tiempo pero x si alguien vuelve a entrar xq lo necesita...

PD: x si acaso... acordarse de q en las propiedades del datagrid ay q poner Allowpaging=True

The Black Boy

es la misma funcion

solo que haces las demas lineas de code por propiedades

Salu2

akai-chan · « **Respuesta #5 en:** Jueves 25 de Mayo de 2006, 08:58 »

xdona no me habia fijado...

SoloCodigo

Autor Tema: Paginar (Leído 2205 veces)

The Black Boy

Paginar

IGarcia

Re: Paginar

The Black Boy

Re: Paginar

akai-chan

Re: Paginar

The Black Boy

Re: Paginar

akai-chan

Re: Paginar