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

maddox

[vb 2005 Express Edition]

1 mensagem neste tópico

Boas. A uns dias comprei o Livro "Microsoft Visual Basic .Net - Passo a passo" de Michael Halvorson e começei a deitar mãos á obra para conseguir desenvolver uma mini aplicação.

Entao o que pretendo é uma aplicação que controle criação de clientes, vendas e consequentemente c/c clientes.

O Problema é que parei logo na criação de clientes, ou seja, tenho tudo a funcionar mas para passar de registo para registo só consigo com a barra de navegação do vb. Quando insiro eu um botão ele parece ficar intacto.

Aqui vou postar todo o código que tenho para ver se alguem m pode ajudar.


Public Class Form1

    Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.ClientesBindingSource.EndEdit()

        Me.ClientesTableAdapter.Update(Me.GesProdDataSet.Clientes)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       

    End Sub

    Private Sub btnprimeiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprimeiro.Click

        Me.BindingContext(GesProdDataSet, "Clientes").Position = 0

    End Sub

    Private Sub btnload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnload.Click

        Me.GesProdDataSet.Clientes.Clear()

        Me.ClientesTableAdapter.Fill(Me.GesProdDataSet.Clientes)

    End Sub

    Private Sub Btnultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnultimo.Click

        Me.BindingContext(GesProdDataSet, "Clientes").Position = Me.BindingContext(GesProdDataSet, "Clientes").Count - 1

    End Sub

    Private Sub btnanterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnanterior.Click

        Me.BindingContext(GesProdDataSet, "Clientes").Position -= 1

    End Sub

    Private Sub btnproximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproximo.Click

        Me.BindingContext(GesProdDataSet, "Clientes").Position += 1

    End Sub

End Class


Obrigado, fiquem bem,  :wallbash:

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