Text/waterswea
1. Função do programa: Implementar paginação para Repeater
2. Design de formulário:
1. Crie um novo aplicativo Web ASP.NET, chamado Repeater2, e o caminho para salvar é http://192.168.0.1/Repeater2 (Observação: no meu computador O IP do site é 192.168.0.1 e o diretório inicial é D:web folder) e clique em OK.
2. Adicione uma tabela com três linhas e uma coluna ao formulário, adicione um controle Repeater à primeira linha da tabela, adicione dois controles Label à segunda linha da tabela e adicione quatro botões Button à terceira linha do mesa.
3. Mude para a janela do código HTML e adicione o seguinte código entre <asp:Repeater id="Repeater1" runat="server"> e </asp:Repeater>:
<ItemTemplate>
<table id="Table2" style="FONT-SIZE: x-small" width="498">
<tr>
<td><%#DataBinder.Eval(Container,"DataItem.employeeid")%></td>
<td><%#DataBinder.Eval(Container,"DataItem.lastname")%></td>
</tr>
</tabela>
</ItemTemplate>
3. Design de código:
Importa System.Data.SqlClient
Classe Pública WebForm1
Herda System.Web.UI.Page
Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")
Dim sDA como SqlDataAdapter
Dim ds como conjunto de dados
Dim currentPage As Integer 'Registra em qual página você está atualmente. Dim maxPage As Integer 'Quantas páginas existem no total? existem no total
' Código do formulário
omitPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
sDA = New SqlDataAdapter("selecionar ID do funcionário, sobrenome do pedido dos funcionários por ID do funcionário", scon)
ds = Novo conjunto de dados
Tentar
sDA.Fill(ds, "funcionários")
'Obtém o número total de linhas rowSum = ds.Tables(0).Rows.Count
Capturar ex como exceção
linhaSoma = 0
End Try
'Se não houver dados, saia do processoIf rowSum = 0 Then Exit Sub
'Calcula o número total de páginas de dados de navegaçãoIf rowSum Mod rowCount > 0 Then
'Se houver resto, adicione 1
maxPage = rowSum rowCount + 1
Outro
'Divida exatamente maxPage = rowSum rowCount
Fim se
currentPage = 1
'Chama o processo de dados vinculado readpage(currentPage)
VincularDados()
Label2.Text = maxPage
'Os botões da página inicial e anterior são invisíveisButton1.Visible = False
Button2.Visible = Falso
Terminar se
End Sub
'Criar um processo de vinculação de dados
SubBindData()
Repetidor1.DataSource = ds
Repetidor1.DataBind()
Label1.Text = páginaatual
End Sub
'Crie um processo para preencher o conjunto de dados
Sub-página de leitura (ByVal n As Integer)
sDA = New SqlDataAdapter("selecionar ID do funcionário, sobrenome do pedido dos funcionários por ID do funcionário", scon)
ds = Novo conjunto de dados
ds.Limpar()
sDA.Fill(ds, (n - 1) * rowCount, rowCount, "funcionários")
Botão
Finalizar Sub
'Home
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Manipula Button1.Click
currentPage = 1
'Chama o processo de preenchimento do conjunto de dados readpage(currentPage)
'Vincular dadosBindData()
'Defina a página inicial e os botões da primeira página como invisíveis e exiba os botões da próxima e da última página Button1.Visible = False
Button2.Visible = Falso
Button3.Visible = Verdadeiro
Button4.Visible = True
End Sub
'Botão da página anterior
Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Lida com Button2.Click
'Se a página atual for a segunda página, defina os botões da página inicial e da página anterior como invisíveisIf Label1.Text > 2 Then
Button3.Visible = Verdadeiro
Button4.Visible = Verdadeiro
Outro
Button1.Visível = Falso
Button2.Visible = Falso
Button3.Visible = Verdadeiro
Button4.Visible = Verdadeiro
Terminar se
páginaatual = Label1.Text - 1
readpage (página atual)
VincularDados()
Botão
End Sub
'Próxima página
Private Sub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Lida com Button3.Click
'Se a página atual for a penúltima página, defina os botões da última página e da próxima página como invisíveisIf Label1.Text < Label2.Text - 1 Then
Button1.Visible = Verdadeiro
Button2.Visible = Verdadeiro
Outro
Button1.Visible = Verdadeiro
Button2.Visible = Verdadeiro
Button3.Visível = Falso
Button4.Visible = Falso
Terminar se
páginaatual = Label1.Text + 1
readpage (página atual)
VincularDados()
End Sub
'Botão da última páginaPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Manipula Button4.Click
'Defina a página atual com o número máximo de páginas currentPage = Label2.Text
readpage (página atual)
VincularDados()
Button1.Visible = Verdadeiro
Button2.Visible = Verdadeiro
Button3.Visível = Falso
Button4.Visible = Falso
Finalizar sub
End Class
é a seguinte:
