COMBOBOX A SOLUCAO DA PROPRIEDADE ITEMDATA

USUARIO.EXCLUIDOS 29/06/2004 22:45:24
#31640
Salve Galera, do VB
Estou com o seguinte problema no SELECt DO FORM:
Carrego minha combobox normalmente, com o 1º Item em branco, tudo ok
TABELA: tb_Informação
TEXTO: Rs("informacao")
CÓ“GIDO: CLng(Rs("cod_informacao"))
           cboInformacao.AddItem ""
              Do Until Rs.EOF
                cboInformacao.AddItem Rs("informacao")
                cboInformacao.ItemData(cboInformacao.NewIndex) = CLng(Rs("cod_informacao"))
                Rs.MoveNext
            Loop

------------------------------------------------------------------
Agora vem o UPDATE e o INSERT, tbm tudo ok, pego o ID do Bco de dados através da propriedade ITEMDATA, blz

VALOR_ID =  cboInformacao.ItemData( cboInformacao.ListIndex)

-------------------------------------------------------------------

MInha duvida é no SELECT depois de cadastrado na tb_cliente eu abro meu form normalmente ele carrega a lista, tudo certinho, mas quando seleciono o cliente que acabei de INSERIR ou ATUALIZAR não consigo mover a SELEÇÓ¡O do COMBOBOX pra o ITEMDATA ou LISTINDEX correto.... PQ????

Por favor fico no Aguardo de uma Ajuda aos colegas...

Que Deus possa nos Abençoar e dar Muita Sabedoria...
USUARIO.EXCLUIDOS 30/06/2004 08:04:32
#31648 Resposta escolhida
como voce esta fazendo para selecionar...
deveria ser algo do tipo

dim i as integer

for i=0 to cboInformacao.Listcount-1
if cboInformacao.ItemData(i) = IDClienteEscolhido then
exit for
endif
next i

if i<cboInformacao.ListCount then
cboInformacao.Listindex = i
endif
USUARIO.EXCLUIDOS 30/06/2004 09:16:56
#31655
soh um detalhe - com seu codigo JL, mesmo se ele selecionar o primeiro item, ele roda o combo todo antes de sair - mesmo ja tendo selecionado uma opcao...
por isso eu adicionaria um Exit For...

no que eu postei coloco o exit for e verifico do lado de fora se encontrou ou nao - encontrando, acerta.
Tópico encerrado , respostas não são mais permitidas
Voltar