DUVIDAS EM UMA COMBO

LEANDRO.BUENO 18/09/2006 08:47:58
#172073
Ola amigos,

Bem tenho no meu projeto uma emissão de nota fiscal, e gostaria de fazer o seguinte:
Tenho o campo "codigo produto" e gostaria que toda a vez que eu salvar um registro no meu cadastro, ele fosse adicionado em uma combo

Ex:
Para salvar utilizo assim:
vnotad!codprod = Combo5.text

Para colocar o dado salvo dentro de uma combo fiz assim:
Combo2.AddItem = vnotad!codprod
Mas não funciona.

Podem me ajudar??
HUGOSSOUZA 18/09/2006 08:50:57
#172076
tenta assim:
Combo2.AddItem vnotad!codprod

LEANDRO.BUENO 18/09/2006 08:54:36
#172079
legal amigo hugo deu certo, agora só mais uma duvida:

ao adicionar nessa combo os itens que eu cadastro, tem como eu fazer uma função que quando eu incluir um novo item no meu cadastro, o programa verificar se este item ja foi colocado na combo e avisar??
HUGOSSOUZA 18/09/2006 09:04:37
#172081
vc pode fazer assim:


Dim achou As Boolean
achou = False

For a = 0 To Combo2.ListCount - 1
   If Combo2.List(a) = vnotad!codprod Then
      MsgBox "Item ja cadastrado"
      achou = True
      Exit For
   End If
Next

If achou = False Then
   Combo2.AddItem vnotad!codprod
End If

o problema disso é que se tem muitos itens na combo vai demorar um pouco
LEANDRO.BUENO 18/09/2006 09:28:37
#172089
Ok ... mas não será muitos itens ... creio que não passara de 10 itens por cadastro.

deu certo ... muito obrigado amigo hugo
HUGOSSOUZA 18/09/2006 09:33:32
#172090 Resposta escolhida
que bom..
não esqueça de encerrar o tópico..
Tópico encerrado , respostas não são mais permitidas
Voltar