Ajuda com ComboBox

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Softwhouse
Usuário Nível 3
Usuário Nível 3
Mensagens: 324
Registrado em: 07 Dez 2011 18:44
Localização: Porto Alegre/RS

Ajuda com ComboBox

Mensagem por Softwhouse »

Utilizo ComboBox para selecionar alguns dados, gravo o conteúdo do array no dbf utilizando a opção DisplayValue. A gravação ocorre corretamente. Ocorre que não consigo recuperar o número do elemento do array para apresentar a opção gravada na hora da alteração. Alguém já usou esse procedimento e poderia dar uma luz? Já tentei recuperar com Ascan e não deu certo. Grato!
Fernando
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

Ajuda com ComboBox

Mensagem por Toledo »

Fernando, tente o seguinte:

Código: Selecionar todos

cItem:="Opção 1"
nItem:=0
For i=1 to Form.oCombo.ItemCount
 Form.oCombo.Value := i
 if Form.oCombo.DisplayValue == cItem
  nItem:=i
  Exit
 endif
Next
if nItem>0
 MsgInfo("Número do Elemento: "+str(nItem,3,0))
endif
Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Softwhouse
Usuário Nível 3
Usuário Nível 3
Mensagens: 324
Registrado em: 07 Dez 2011 18:44
Localização: Porto Alegre/RS

Ajuda com ComboBox

Mensagem por Softwhouse »

Toledo,

Obrigado pela resposta, mas resolvi com Ascan mesmo. Não estava dando certo pq os Arays possuem tamanhos diferentes e eu esqueci de usar AllTrim(). Valeu!
Fernando
Responder