comboBox

[mizzu]

não estou conseguindo salvar o item selecionado na ComboBox:

alguém pode me ajudar.

Grato.

[Macêdo]

Poste seu codigo, como você está tentando inserir o dado da combo no BD ?

[mizzu]

Oi Macêdo

pra jogar os dados no combobox está assim:

rs.MoveFirst

While Not rs.EOF

Combo1.AddItem rs!cidade

rs.MoveNext

Wend

quando eu clico no item selecionado eu preciso jogá-lo para um campo assim:

Text8.Text = Combo1.ItemData(Combo1.ListIndex)

só que o Text8 está ficando com 0 (zero)

ok?

Editado Fevereiro 9, 2009 por mizzu

[Leandro_Pirozzi]

Dim lnX As Integer ' declara esse contador

rs.MoveFirst

lnX = 0

While Not rs.EOF

Combo1.AddItem rs!cidade & ""

Combo1.ItemData(lnX) = rs!ID_CIDADE

lnX = lnX + 1

rs.MoveNext

Wend

Ai tenta fazer assim quando clicar.

Text8.Text = Combo1.ItemData(lnX)

veja se isso resolve.

Editado Fevereiro 10, 2009 por Leandro_Pirozzi

[mizzu]

Valeu, Leandro.

Muito Obrigado.

[Leandro_Pirozzi]

Que isso é um prazer, afinal aprendo todo dia algo diferente aqui e não tem nada melhor do que ajudar outras pessoas com o que aprendemos.