williamjda

AMIGOS ESTOU COM O SEGUINTE PROBLEMA. Tenho um formulario que contem campos textbox que são preenchidos e depois são gravados no bd em bloco de notas. Bom neste formulário tem um listbox que me mostra os ultimos registros gravados no meu formulário, tipo uma lista telefonica. Criei um campo para pesquisar. quando digito um nome e clico em pesquisar o botão oculta os itens da listbox gravado no meu formulário e me tras a resposta da pesquisa até ai tudo normal. o problema é que quando ele retorna o resultado exato da pesquisa retornando apenas um registo e eu seleciono este registro ele deveria me mostrar nos textbox do formulário os dados selecionados porem ele me mostra sempre o 1º registro gravado que esta em oculto. quando eu pesquiso um valor que há em mais de um registro e ele me retorna 2 ou mais resultados e eu seleciono um, ele me mostra os dados correto nos textbox. alguém poderia me ajudar a resolver esta questão. veja o codigo do meu botão pesquisar abaixo: Código (vb.net): [Seleccione] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTFILTRO.Click If Not filtro_ligado Then ListBox1.Items.Clear() filtro_ligado = True BTFILTRO.BackColor = Color.LightBlue Le_arquivo() BTNOVO.Enabled = False BTALTERA.Enabled = True BTEXCLUIR.Enabled = False BTAVANÇAR.Enabled = False BTVOLTAR.Enabled = False TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" TextBox16.Text = "" TextBox17.Text = "" TextBox18.Text = "" TextBox19.Text = "" TextBox20.Text = "" TextBox21.Text = "" TextBox22.Text = "" TextBox23.Text = "" TextBox24.Text = "" TextBox25.Text = "" TextBox26.Text = "" TextBox27.Text = "" TextBox28.Text = "" TextBox29.Text = "" TextBox30.Text = "" TextBox31.Text = "" TextBox32.Text = "" TextBox33.Text = "" TextBox34.Text = "" TextBox35.Text = "" TextBox36.Text = "" MaskedTextBox1.Text = "" MaskedTextBox2.Text = "" MaskedTextBox3.Text = "" MaskedTextBox4.Text = "" TextBox1.Focus() Else filtro_ligado = False TextBox7.Text = "" BTFILTRO.BackColor = SystemColors.Control Le_arquivo() BTNOVO.Enabled = True BTALTERA.Enabled = True BTEXCLUIR.Enabled = True BTAVANÇAR.Enabled = True BTVOLTAR.Enabled = True End If End Sub

Amigos obrigado pela anteção, mas eu já consegui resolver o meu problema, acabei usando o seguinte código: rivate produtos As Dictionary(Of String, String) Private Sub CarregaDados() produtos = New Dictionary(Of String, String) produtos.Add("12345", "Nome do Produto") produtos.Add("12345", "Nome do Produto") ' FIM DO BANCO DE DADOS NOTA FISCAL INDUSTRIALIZAÇÃO ' Mesmo assim muito obrigado.

Olá amigo você poderia ser mostrar como ficaria pois tentei fazer da seguinte forma mas também não funcionou. Private Sub TextBox7_Select(ByRef TextBox8) Dim achou As Boolean If Len(TextBox7.Text) >= 5 Then For t = 1 To 2 If codigo(t) = TextBox7.Text Then TextBox8.Items.Add(produto(1)) achou = True End If Next t If achou = False Then MsgBox("Produto não cadastrado") End If Não deu nenhum erro porem não funcionou. EXEMPLO. Preciso digitar o código no TextBox1 e ele retornar a descrição na texbox2. A DESCRIÇÂO QUE ele tem que me retornar esta no proprio VB. em linha de comando: Public Class Form1 ' INICIO DO BANCO DE DADOS NOTA FISCAL ' Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load carrega_dados() End Sub Private Sub carrega_dados() produto(1) = "Nome do Produto" codigo(1) = "12345" produto(2) = "Nome do Produto" codigo(2) = "12345" ' FIM DO BANCO DE DADOS NOTA FISCAL ' End Sub DESDE já agradeço. Estou meio perdido no site pois sou membro apenas a 2 dias. você disse que moveria este post para a sala do .NET você poderia me passar o link pois achava que esta era a sala. procurei porem não encontrei a sala mencionada por você. Mais uma vez obrigado. Só para melhor visualização do que preciso: Meu formulário é assim: CódigoEC Descrição EC QTD EC ------------------------------------------------------------------------------------------------------------------------------------- | Listbox7 | ListBox8 | ListBox9 | ------------------------------------------------------------------------------------------------------------------------------------- | Listbox10 | ListBox11 | ListBox12| ------------------------------------------------------------------------------------------------------------------------------------- e assim sucessivamente até o ListBox34 Quando o usuario digitar o código EC no listBox7 a informação deverá aparecer no listBox8 (DescriçãoEC) e assim sucessivamente com o outros campos Código EC e Descrição EC não se preocupe com a QTD EC pois ela ser digitada manualmente. creio que se eu resolver uma linha as outras é só copiar e colar. Os código dos produto e o produtos estão no próprio VB. Desta forma: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load carrega_dados() End Sub Private Sub carrega_dados() produto(1) = "Nome do Produto" codigo(1) = "12345" produto(2) = "Nome do Produto" codigo(2) = "12345" ' FIM DO BANCO DE DADOS NOTA FISCAL ' End Sub Resumindo se eu digitar no ListBox7 (CódigoEC) 64115 devera aparecer no ListBox8 (DescriçãoEC) a informação: Nome do Produto. Fico no aguardo de uma resposta e de sua ajuda, pois necessito disto com muita urgência e é de extrema importância. Desde já agradeço. Sem mais; Williamjda :thumbsup:

Olá amigo você poderia ser mostrar como ficaria pois tentei fazer da seguinte forma mas também não funcionou. Private Sub TextBox7_Select(ByRef TextBox8) Dim achou As Boolean If Len(TextBox7.Text) >= 5 Then For t = 1 To 2 If codigo(t) = TextBox7.Text Then TextBox8.Items.Add(produto(1)) achou = True End If Next t If achou = False Then MsgBox("Produto não cadastrado") End If Não deu nenhum erro porem não funcionou. EXEMPLO. Preciso digitar o código no TextBox1 e ele retornar a descrição na texbox2. A DESCRIÇÂO QUE ele tem que me retornar esta no proprio VB. em linha de comando: Public Class Form1 ' INICIO DO BANCO DE DADOS NOTA FISCAL ' Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load carrega_dados() End Sub Private Sub carrega_dados() produto(1) = "Nome do Produto" codigo(1) = "12345" produto(2) = "Nome do Produto" codigo(2) = "13245" ' FIM DO BANCO DE DADOS NOTA FISCAL End Sub DESDE já agradeço. Estou meio perdido no site pois sou membro apenas a 2 dias. você disse que moveria este post para a sala do .NET você poderia me passar o link pois achava que esta era a sala. procurei porem não encontrei a sala mencionada por você. Mais uma vez obrigado.

Tenho um formulário que que recebe informações de nota fiscal. o mesmo esta pronto para funcionar porem a uma alteração que pretendo fazer mas não sei por onde começar. Este formulário recebe informações digitadas em seu textbox. E grava em um BD de bloco de notas txt. As ultimas informações aparecem em uma listbox. que quando selecionada a informação elas novamente aparecem nas textbox. (COMO SE FOSSE UMA AGENDA TELEFONICA ). O que preciso. os campos são: Código Descrição Quatidade: textbox textbox textbox Quero que quando eu digitar o código do meu produto no textbox (Código ), o produto que esta no meu bd dentro do proprio visual basic em linha de comando ele apareça no textbox (descrição) automaticamente. Por que a informação descrição não pode ser digitada pois demoraria muito tempo para preencher por isso criei um banco de dados: EXEMPLO 12345 é o código para " Nome do Produto" Eu consegui fazer isso utilizando da seguinte forma: MEU BD esta assim: Public Class Form1 ' INICIO DO BANCO DE DADOS NOTA FISCAL INDUSTRIALIZAÇÃO ' Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load carrega_dados() End Sub Private Sub carrega_dados() produto(1) = "Nome do Produto" codigo(1) = "12345" produto(2) = "Nome do Produto" codigo(2) = "12345" ' FIM DO BANCO DE DADOS NOTA FISCAL ' End Sub Codigo do TextBox (CÓDIGO) Código Descrição Quatidade: textbox listbox textbox Preciso que isso seja feito apenas utilizando textbox. Veja o código que usei e deu certo com listbox. Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged Dim achou As Boolean If Len(TextBox7.Text) >= 5 Then If Len(TextBox7.Text) <= 0 Then End If For t = 1 To 1 If codigo(t) = TextBox7.Text Then ListBox2.Items.Add(produto(1)) achou = True End If Next t If achou = False Then MsgBox("Produto não cadastrado") End If ListBox2.Text = "" End If End Sub ele retorna o valor do meu bd porem se o usuário digitar o codigo de outro produto no mesmo campo e quiser trocar não seria possível por que uma vez que o código entra no listbox ele vai criando linhas e não podem ser apagadas. espero que tenha dado para entender o meu problema. ( cada textbox representa uma linha da minha nota que no total são 9, mas com as Listbox cada linha equivale a um montão de linhas por que a listbox fica adicionando linhas dentro de is mesma. Fico no aguardo de sua resposta e desde já agradeço.Sem mais; William