Ir para conteúdo
Fórum Script Brasil
  • 0

Botão navegação, próximo


Matheus da Maia Cordeiro

Pergunta

Fiz um código para o botão primeiro e último e deu certo, gostaria de saber como implementar o código abaixo para o botão proximo, segue codigo do botão ultimo funcionado para exemplo:

 

 Private Sub btnUltimo_Click(sender As Object, e As EventArgs) Handles btnUltimo.Click
        'Botao Ultimo
        Using con As SqlConnection = GetConnetionSQLServerIndicador()

            Try
                con.Open()
                sql = "select * from r030emp order by numemp"
                Dim cmd As SqlCommand = New SqlCommand(sql, con)
                Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable
                local = New DataSet
                da.Fill(local, "R030Emp")
                resultado = local.Tables("R030Emp").Rows.Count

                If resultado > 0 Then
                    registro = local.Tables("R030Emp").Rows(resultado - 1)
                    cbxCodigoEmpresa.Text = registro("NumEmp")
                    cbxCodigoEmpresa.Enabled = False
                    btnAlterar.Enabled = True
                    btnCancelar.Enabled = True
                    txtNomeEmpresa.Text = registro("NomEmp")
                    TxtApelido.Text = registro("ApeEmp")
                    txtDdd.Text = registro("DddTel")
                    txtTelefone.Text = registro("NumTel")
                    btnAlterar.Text = "Alterar"

                ElseIf resultado = 0 Then
                    'Habilita Botões
                    cbxCodigoEmpresa.Enabled = False
                    btnAlterar.Enabled = True
                    btnCancelar.Enabled = True
                    txtNomeEmpresa.Text = ""
                    TxtApelido.Text = ""
                    txtDdd.Text = ""
                    txtTelefone.Text = ""
                    cbxCodigoEmpresa.Enabled = True
                    'cbxCodigoEmpresa.Focus()
                    'Ajusta a data
                    btnAlterar.Text = "Inserir"
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
        End Using
    End Sub

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...