• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vasco16

controlar primeiro e ultimo registo

15 mensagens neste tópico

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..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Preciso que sejas mais especifico, estás a trabalhar com o que? BindingNavigator? Label?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Preciso que sejas mais especifico, estás a trabalhar com o que? BindingNavigator? Label?

BindingNavigator

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

colocas algo do género no envento:

Dim tmp As BindingSource = DirectCast(sender, BindingSource)

e depois é so fazer tmp.Count - 1

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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'.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eu estava a falar no evento PositionChanged do BindNav, não no do botão.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eu estava a falar no evento PositionChanged do BindNav, não no do botão.

nao estou a perceber como fazer S:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :/

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :(

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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..

0

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