Estou com a seguinte duvida.

Tenho uma combo  e uma text.

quando clicar em um valor de uma combo, gostaria que aparecesse o número do código que esta salvo no bando de dados e exibisse na text

 

 

 

beleza, esse esta funcionando. o problema é quando clico no botão salvar/cancelar e exluir.
ele fala que que  a propriedade array indexada é invalido e seta para a


Private Sub cboFamilia_Click() 
    txtcodfam.Text = cboFamilia.ItemData(cboFamilia.ListIndex)
End Sub

 

Não seria mais fácil assim:

 

Private Sub cboFamilia_Click() 
    txtcodfam.Text = cboFamilia.Text

End Sub

mas assim aparece o conteudo que esta na combo, eu quero que apareça o cód do meu produto na text

Da uma olhada nesta dica:

http://www.vbweb.com.br/dicas_visual.asp?Codigo=724&Classificacao=

um abraço

O cara que setar o combo carregado com text/codigo o campo da tabela do codigo dos itens carregados na combo.

Bem Leandro,

 

Como você não detalha como funcionam os botões gravar, cancelar e excluir, vou chutar uma possibilidade...

Provavelmente este erro ocorre quando você faz uma limpeza na sua Combo e, ou remove todo o seu conteúdo ou então está setando o seu ListIndex para -1. Acontece que em qualquer uma das opções acima, você invalida a propriedade ListIndex para uso com a propriedade ItemData. Você deve estar pensando: mas eu não clique na combo, pois é, o VB algumas vezes (quando ele está a fim de sacanear a gente) força uam reentrância no evento Click, quando nós redefinimos os ListIndex, por isso o evento está ocorrendo de novo e aí gera o erro para você. Você pode experimentar duas coisas: ou coloca uma instrução On Error Resume Next no início do evento click, ou coloca um If verificando o ListIndex. P.Ex.

    If CboFamilia.ListIndex=-1 Then exit sub

 

Veja se isso resolve.

Um abraço,

Sandro.