Paginação em asp.net com VB

[Ted k' 126]

Galera me ajudem por favor...

 

com faço uma paginação de dados em asp.net linha VB sem precisar do DataGrid?

 

EXEMPLO:

 

uma paginação estilo ASP

 

 

 

 

anterior 1 | 2 | 3 | 4 proxima

[Davis 0]

Sem DataGrid e sem Gridview também, suponho...Acho que se você planeja usar tabelas html pra mostrar dados é melhor usar o bom e velho ASP3 :D Ok, brincadeiras a parte, o que exatamente você quer fazer? Mostrar dados tabulares ou "brincar" de abas no ASP.Net?Tipo, pelo que eu entendi eu te recomendaria o DataGrid ou o GridView (melhor, na minha opinião).Mas explique melhor... ^_^

[ShIrYuDuCs 0]

GridView, arrastou, está pronto! ;D

[PGSBirD 0]

Ted k',

 

Você pode fazer paginação Via DataList que funciona como tables

 

Bem, faça o seguinte:

-Crie um DataTable para colocar os dados que quer adicionar no Datalist através de um DataSet(colocar colunas)...

Após isso coloque seu DataTable dentro de um DataView faça a paginação desta maneira:

-------------------------------

Sub ItemsDataList()

Dim Table1 As DataTable = New DataTable()

Dim DR As DataRow

Dim dataset25 As New DataSet()

 

'Adiciona as Colunas do DataTable

Table1.Columns.Add("ID", GetType(String))

Table1.Columns.Add("descricao", GetType(String))

dataset25.Tables.Add(Table1)

'****************Abaixo Código para inserir os dados

XXXX

'****************Fim do código de Implementação de dados

 

Dim objPds As New PagedDataSource

Dim DV As DataView = New DataView(Table1)

 

objPds.DataSource = DV

objPds.AllowPaging = True

objPds.PageSize = dados_por_pagina

 

objPds.CurrentPageIndex = CurrentPage()

 

lblPaginacao.Text = "Página: " & (CurrentPage + 1).ToString() & " de " & objPds.PageCount.ToString()

 

' Habilitar ou não os Botões Avançar e Voltar

btnAvancar.Visible = True

btnVoltar.Visible = True

If objPds.IsFirstPage Then

btnVoltar.Enabled = False

Else

btnVoltar.Enabled = True

End If

If objPds.IsLastPage Then

btnAvancar.Enabled = False

Else

btnAvancar.Enabled = True

 

End If

'*************************** Envia ao Datalist

Seu Datalist.DataSource = objPds

Seu Datalist.DataBind()

End Sub

 

Property CurrentPage() As Integer

 

Get

Dim o As Object = ViewState("_CurrentPage")

If o Is Nothing Then

Return Nothing

End If

Return CStr(o)

End Get

 

Set(ByVal value As Integer)

ViewState("_CurrentPage") = value

End Set

 

End Property

 

Protected Sub btnAvancar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAvancar.Click

CurrentPage = CurrentPage + 1

ItemsDataList(lblXmlFotos.Text)

End Sub

 

Protected Sub btnVoltar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnVoltar.Click

CurrentPage = CurrentPage - 1

ItemsDataList(lblXmlFotos.Text)

End Sub

 

'*******************

para chamar o método paginação pode-se chamar pelo PAGE LOAD

desta maneira:

 

CurrentPage = 0

ItemsDataList()

 

Eu Criei este código para XML...funciona direitinho com qualquer dado..

Espero ter ajudado

Atenciosamente

Paulo - Estúdio Web Mais

http://estudiowebmais.com.br

[Fernando_Bittencourt 0]

fantástico, era justamente oq eu procurava....vlw PGSBirD ...