[Resolvido] Problema com combobox ao selecionar um item

[Gvip 0]

Pessoal é o seguinte,

 

Eu preencho a combobox assim:

Do While Not RS.EOF

ComNegocio.AddItem RS!produto

ComNegocio.ItemData(ComNegocio.NewIndex) = RS!id_produto

RS.MoveNext

Loop

reparem que o id do item é preenchido com o id que vem do BD, e eu preciso selecionar um item por esse id que eu preencho vindo do bd...

não sei como fazer, achei que fosse assim:

Me.ComNegocio.ItemData(ComNegocio.ListIndex) = Me.txtidprod

Assim dá o erro: "Invalid property array index"

o txtidprod está preenchido com o Id selecionado em um flexgrid de outro form...

 

 

Abraços...

[Gvip 0]

Galera,

 

Se der pra fazer via texto também serve...

 

Valew galera...

Abraços!

[Gvip 0]

Galera achei uma solução, pelo texto...

 

segue abaixo minha solução:

 

For i = 0 To Me.ComNegocio.ListCount - 1

If Me.ComNegocio.List(i) = Sel Then

Me.ComNegocio.ListIndex = i

Exit For

End If

Next

 

Sel é o item selecionado no form anterior...

 

Valew!