Jump to content
williamjda

Listar produto pelo código

Recommended Posts

williamjda

Olá amigos, tenho um formulário onde com varias textbox que são preenchidas e salvas em um bd.

Um dos campos é o Código do Produto e a outra é o Descrição do Produto. Os campos textbox são exportados de um BD sql que foi criado no proprio vb. Eu preciso que quando eu digitar o código do produto na textbox descrição apareça o produto referente aquele código. Eu criei um bd interno no próprio form e ficou assim:

  Private produtos As Dictionary(Of String, String)
    Private Sub CarregaDados()

        produtos = New Dictionary(Of String, String)

        produtos.Add("64115", "produto")
        produtos.Add("58434", "produto")
        produtos.Add("63697", "produto")
        produtos.Add("63847", "produto")
        produtos.Add("63849", "produto")
        produtos.Add("64220", "produto")
        produtos.Add("64298", "produto")
        produtos.Add("63470", "produto")
        produtos.Add("64222", "produto")
        produtos.Add("65815", "produto")


        ' FIM DO BANCO DE DADOS NOTA FISCAL INDUSTRIALIZAÇÃO 
    End Sub

Código do Produto        Descrição do Produto

___________________________________________________________________________________

|      64115              | PRODUTO|

-------------------------------------------------------------------------------------------------------------------

No meu form não da erro porem não funciona alguém pode me ajudar.

Share this post


Link to post
Share on other sites
Caça

Coloca isto

Console.WriteLine(produtos.Item("64115"))


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
williamjda

Amigo poderia me ajudar. Bom o campo onde eu digito o código ficou assim.

Private Sub Código_PDTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Código_PDTextBox.TextChanged
        Dim achou As Boolean
        If Len(Código_PDTextBox.Text) >= 5 Then   ' Object reference not set to an instance of an object.  :  erro ocorre nesta linha' 
        End If
        If produtos.ContainsKey(Código_PDTextBox.Text) Then
            Descrição_PDTextBox.Text = produtos.Item(Código_PDTextBox.Text)
            achou = True
        End If
        If achou = False Then
        End If
    End Sub

Eu digito o código no campo na textbox (Código_PDTextBox.Text) e o produto referente a esse codigo tem que aparecer no textbox Descrição_PDTextBox

Porem ele esta dando o seguinte erro ao tentar executar o formilário:  Object reference not set to an instance of an object.

E o código que você me passou onde exatamente devo coloca-lo?

Então acima tenho o código do Dicionary e este é o código que estou usando para poder pesquisar. Você poderia me ajudar?

Fico no aguardo sem mais.

Williamjda

Share this post


Link to post
Share on other sites
Caça

        If Len(Código_PDTextBox.Text) >= 5 Then   ' Object reference not set to an instance of an object.  :  erro ocorre nesta linha'
        End If

Está a usar um IF e não fazes nada dentro desse IF, por isso podes retirar estas duas linhas de código


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.