NAVEGAR ENTRE REGISTROS COM BOTOES

PERCIFILHO 29/09/2011 10:24:14
#385529

Bom dia, amigos.
Estou colocando em meu formulário os botões de navegação (angterior,próximo,primeiro e último) para navegar entre os registros da tabela, sem usar DataBinding.
Consegui fazer dessa maneira, com o botão primeiro e o último.
Falta, agora conseguir o próximo e o anterior.
Estou tentando desde ontem mas ainda não cheguei a uma conclusão.


Private Sub BtnPrimeiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrimeiro.Click
Dim da As New SqlDataAdapter([Ô]Select Top 1 * From Empresas Order by codigo[Ô], conexao)
leitor = New DataTable()
da.Fill(leitor)
LinhaTabela = 0
conexao.Open()
LimpaCampos()
TxtCodigo.Text = leitor.Rows(LinhaTabela)([Ô]codigo[Ô])
TxtRazaoSocial.Text = leitor.Rows(LinhaTabela)([Ô]razaosocial[Ô])
TxtEndereco.Text = leitor.Rows(LinhaTabela)([Ô]endereco[Ô])
TxtNumero.Text = leitor.Rows(LinhaTabela)([Ô]numero[Ô])
TxtCep.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
TxtBairro.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
TxtCidade.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
CmbEstado.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
TxtPais.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
BtnAnterior.Enabled = False
BtnProximo.Enabled = True
BtnPrimeiro.Enabled = False
BtnUltimo.Enabled = True
conexao.Close()
End Sub

Private Sub BtnUltimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUltimo.Click
leitor = New DataTable()
Dim da As New SqlDataAdapter([Ô]Select * From Empresas[Ô], conexao)
da.Fill(leitor)
LinhaTabela = leitor.Rows.Count - 1
da = New SqlDataAdapter([Ô]Select * From Empresas Where codigo = [Ô] & leitor.Rows(LinhaTabela)([Ô]codigo[Ô]), conexao)
da.Fill(leitor)
LimpaCampos()
TxtCodigo.Text = leitor.Rows(LinhaTabela)([Ô]codigo[Ô])
TxtRazaoSocial.Text = leitor.Rows(LinhaTabela)([Ô]razaosocial[Ô])
TxtEndereco.Text = leitor.Rows(LinhaTabela)([Ô]endereco[Ô])
TxtNumero.Text = leitor.Rows(LinhaTabela)([Ô]numero[Ô])
TxtCep.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
TxtBairro.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
TxtCidade.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
CmbEstado.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
TxtPais.Text = leitor.Rows(LinhaTabela)([Ô]cep[Ô])
BtnProximo.Enabled = False
BtnAnterior.Enabled = True
BtnPrimeiro.Enabled = True
BtnUltimo.Enabled = False
conexao.Close()
End Sub

Alguém tem uma solução?

Até mais...