Combo Box

[fernandofbl 0]

Boas galera,Eu to com um problema básico onde eu tento recuperar valores no banco de dados e colocar na combo...Eu faço o seguinte:CmbIndica.ListIndex = recMostra("IndicacaoCliente")eu queria na verdade que ele mostrasse o valor do campo descrição a partir do código que esta gravado no banco....Ele da erro "invalid property value" (Ele nao tem o indice 9, mas o código que esta gravado no banco é o 9)

[jolienai 0]

tente CmbIndica= adicione aqui o valor que você adiciona no como

CmbIndica

[fernandofbl 0]

Eu tentei tbm, mas nao rola, pq ele entende que isso é um texto e nao verdade não é...Na verdade, eu queria que ele trouxesse o valor no combo conforme estivesse o código no banco...Deixa eu tentar explicar melhor....eu tenho uma tabela de clientes e uma tabela de indicação....eu quero gravar, a partir do combo, o código da indicação no banco de dados....(eu populei a combo com os valores da tabela de indicacao e quando eu gravo, eu gravo o código....) e depois desse processo. tenho que exibir os registros e estou me perdendo na hora de recuperar o valor na combo...eu tenho o seguinte:combo.itemdata(combo.listindex) = rs("campo")e ele nao me traz o valor...... Resumo da opera:Estou com problema para exibir o valor na combo.Valeu pela ajuda cara...

[Luizgrs 0]

Você tem que fazer um loop comparando todos os itemdata da combo, e quando você achar o item certo, você joga o índice dele pro listindex.

[Daniel Belarmino 0]

Como eu faço esse Loop comparando todos os itens do combo?Tem como dar um exemplo aqui?

[Luizgrs 0]

Considerando que você na hora de preencher jogos os valores de código para o ItemData você faz assim para marcar a opção da combo desejada:

for x=0 to CmbIndica.listcount -1	  if CmbIndica.itemdata(x) = recMostra("codigo) then			 CmbIndica.listindex = x			 exit for	  end ifnext x

[fernandofbl 0]

Desculpa nao ter voltado ao tópico, mas enfim, voltei ipra dizer qe mandou super bem....abraçoobrigado