combobox

[marcia232865 0]

gente, tenho duas situações: uma combo preenchida por uma tabela, cbopca_cod.Clear Do Until rs2.EOF cbopca_cod.AddItem rs2("pca_cod") & " - " & rs2("pca_des") & " - " & rs2("mrc_des") cbopca_cod.ItemData(cbopca_cod.NewIndex) = rs2("pc_cod") rs2.MoveNext Loop rs2.Close cbopca_cod.ListIndex = 0e outra, uma combo preenchida com o list das propriedades da combo, 'masculino' , 'feminino'a combo preenchida com a tabela, já sai mostrando o primeiro item, e a combo preenchida com o list, sai mostrando em branco, como faço para reverter isso? a combo da tabela, mostrar o primeito item em branco e a combo do list já sair mostrando por exemplo 'masculino'????? valeu...márcia

[Claudio Neto 3]

USE AS PROPRIEDADES .TEXT, NA DA TABELA, PONHA EM SEU EM FORM_LOAD cbopca_cod.TEXT = "", ISSO FARÁ ELA APARECER EM BRANCO, E O MESMO PARA A OUTRA, .TEXT = "MASCULINO"

[cassitos 2]

Só complementando a resposta do camarada ae, dependendo do estilo (propriedade Style = 2 - DropDown List) aplicado ao combobox, se o item com texto vazio não existir pode dar erro ao tentar fazer combo.text = "".

Se ocorrer este tipo de situação você pode:

incluir um item em branco antes de preenche-lo com dados da tabela:

cbopca_cod.Clear

cbopca_cod.additem " "

Do Until rs2.EOF

cbopca_cod.AddItem rs2("pca_cod") & " - " & rs2("pca_des") & " - " & rs2("mrc_des")

depois de preencher pode-se fazer: cbopca_cod.listindex = 0 ou cbopca_cod.text = " " (repare o espaço).

 

ou então após preencher o combo fazer com que nenhum item seja selecionado:

cbopca_cod.listIndex = -1 no lugar do cbopca_cod.ListIndex = 0 tipo:

cbopca_cod.Clear

Do Until rs2.EOF

cbopca_cod.AddItem rs2("pca_cod") & " - " & rs2("pca_des") & " - " & rs2("mrc_des")

cbopca_cod.ItemData(cbopca_cod.NewIndex) = rs2("pc_cod")

rs2.MoveNext

Loop

rs2.Close

cbopca_cod.ListIndex = -1