Posicionar Dado no Combo


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Posicionar Dado no Combo

dummies

CERQUILHO
SP - BRASIL

ENUNCIADA !

Postada em 29/10/2009 20:33 hs

Olá estou usando um combobox no stilo Dropdown List
Atribio os dados assim:
cmbGrupo.AddItem "Antenas"
cmbGrupo.ItemData(cmbGrupo.NewIndex) = 200
cmbGrupo.AddItem "Alarmes"
cmbGrupo.ItemData(cmbGrupo.NewIndex) = 250
cmbGrupo.AddItem "Receptores"
cmbGrupo.ItemData(cmbGrupo.NewIndex) = 300

Até ai tudo bem, eu estou gravando no banco de dados os valores 200,250,300 conforme for selecionado no combo.
Bom, como eu disse no banco fica gravado os valores 200,250,300.
Agora eu fiz uma consulta no BD e quero que seja apresentado a descição referente aos valores, ou seja :
Para 300 = "Receptores"
Para 250 = "Alarmes"
Para 200 = "Antenas"

Mas não estou conseguindo.
Vejam como faço, depois da consulta:

cmbGrupo.index = rst.field("codigo").values 'que é igual a 300 por exemplo
Como o rst vale 300 e o combo não existe esse index, então dá erro.

Lembrando que os três dados estão no combobox, eu apenas preciso que posicione no indice correto, confome a consulta do usuário.

Se alguém puder me ajudar nessa, agradeço desde já.

[]s

PH1959

SÃO JOSÉ DOS CAMPOS
SP - BRASIL

ENUNCIADA !

Postada em 30/10/2009 12:29 hs

item data é somente leitura... com ele vc posiciona os itens dentro do combo;

por ex se vc incluir mais um item digamos por ex

transmissores ...

cmbGrupo.AddItem "transmissores" com o index
cmbGrupo.ItemData(cmbGrupo.NewIndex) = 230, ele irá se posicionar no combo entre os itens com indice 200 e 250 mesmo q vc inclua este item posteriormente;

acredito q o q vc está tentando fazer na realidade é gravar um código para cada item do grupo e fazer com q o combo selecione baseado no código ...seria isso?

TÓPICO EDITADO

dummies

CERQUILHO
SP - BRASIL

ENUNCIADA !

Postada em 31/10/2009 11:30 hs

Olá pessoal já encontrei a solução, peguei uma dica aqui do forum, e fiz uma function, vejam:

Public Function fPosicionaCombo(iCodigo As Integer, obj As Object) As String
Dim i As Integer

For i = 0 To obj.ListCount - 1
    If obj.ItemData(i) = iCodigo Then
          obj.ListIndex = i
          Exit For
    End If
Next
End Function

'E depois chamo a function assim:

fPosicionaCombo (rst.field("CODIGO_GRUPO").values), cmbGrupo

[]s

Página(s): 1/1