Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

vasco16

controlar primeiro e ultimo registo

Mensagens Recomendadas

vasco16    0
vasco16

boas pessoal gostaria de saber como posso controlar quando estou no ultimo registo ou no primeiro.

para ir para o registo seguinte tenho este código:

bindNav.MoveNext()

mas chegando ao ultimo ele nao me faz nada, sei que nao tenho código para ele fazer mas queria mostrar uma mensagem..

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
bioshock    170
bioshock

Não sei se é isto que pretendes, mas:

Estás a pedir Dois butões do género (Botão 1º Registo e Botão Ultimo Registo) ?

Caso seja isso, no Botão 1º Registo inseres este código:

bindNav.MoveFirst()

No Botão Ultimo Registo:

bindNav.MoveLast()

Cumprimentos.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
vasco16

Não sei se é isto que pretendes, mas:

Estás a pedir Dois butões do género (Botão 1º Registo e Botão Ultimo Registo) ?

Caso seja isso, no Botão 1º Registo inseres este código:

bindNav.MoveFirst()

No Botão Ultimo Registo:

bindNav.MoveLast()

Cumprimentos.

isso eu ja sei.. gostava era que quando chego ao ultimo registo me mostra uma mensagem a dizer que estou no ultimo registo.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Soulsick    1
Soulsick

Declara o BindNav desta maneira Dim WithEvents bindNav.... que te permite acederes aos eventos.

Depois escolhes o evento PositionChanged e aí verificas se a posição é a primeira ou a ultima.

Penso que é a melhor maneira de fazer o que tu queres. Senão ias ter que andar a meter mais código nos botões todos a verificar. B)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
vasco16

Declara o BindNav desta maneira Dim WithEvents bindNav.... que te permite acederes aos eventos.

Depois escolhes o evento PositionChanged e aí verificas se a posição é a primeira ou a ultima.

Penso que é a melhor maneira de fazer o que tu queres. Senão ias ter que andar a meter mais código nos botões todos a verificar. :(

e como é que sei qual é o meu ultimo registo ?:S

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Soulsick    1
Soulsick

colocas algo do género no envento:

Dim tmp As BindingSource = DirectCast(sender, BindingSource)

e depois é so fazer tmp.Count - 1

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
vasco16

colocas algo do género no envento:

Dim tmp As BindingSource = DirectCast(sender, BindingSource)

e depois é so fazer tmp.Count - 1

erro:

Não é possível associar o objecto de tipo 'System.Windows.Forms.Button' ao tipo 'System.Windows.Forms.BindingSource'.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
CrzB    0
CrzB

Para que isso tudo ?

Basta quando o ficheiro chegar ao fim (EOF) escreveres as instruções: IF basededades.recordset.EOF then ....

Pelo menos em vb6 é assim :/

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
vasco16

Para que isso tudo ?

Basta quando o ficheiro chegar ao fim (EOF) escreveres as instruções: IF basededades.recordset.EOF then ....

Pelo menos em vb6 é assim :/

será que em vb.net isso funciona..?:S

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Soulsick    1
Soulsick

Declaras o bindNav desta maneira

Dim WithEvents bindNav As BindingSource

depois copia isto para la

Private Sub bindNav_PositionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bindNav.PositionChanged
Dim tmp As BindingSource = DirectCast(sender, BindingSource)
If tmp.Position = tmp.Count - 1 Then
  MsgBox("ultimo registo")
ElseIf tmp.Position = 0 Then
  MsgBox("primeiro registo")
End If
End Sub

agora experimentas, e depois adaptas ao que necessitas :(

qualquer duvida diz :(

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
vasco16

Declaras o bindNav desta maneira

Dim WithEvents bindNav As BindingSource

depois copia isto para la

Private Sub bindNav_PositionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bindNav.PositionChanged
Dim tmp As BindingSource = DirectCast(sender, BindingSource)
If tmp.Position = tmp.Count - 1 Then
  MsgBox("ultimo registo")
ElseIf tmp.Position = 0 Then
  MsgBox("primeiro registo")
End If
End Sub

agora experimentas, e depois adaptas ao que necessitas :(

qualquer duvida diz :(

de certa forma resolve..

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade