controlar primeiro e ultimo registo

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

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

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

[bioshock]

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

[vasco16]

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

BindingNavigator

[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)

[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

[Soulsick]

colocas algo do género no envento:

Dim tmp As BindingSource = DirectCast(sender, BindingSource)

e depois é so fazer tmp.Count - 1

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

[Soulsick]

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

[vasco16]

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

nao estou a perceber como fazer S:

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

[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

[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 😞

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