Gravar Valores do comboboxex

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Avatar do usuário
Marcos
Usuário Nível 3
Usuário Nível 3
Mensagens: 355
Registrado em: 20 Set 2003 09:16
Localização: Cáceres/Mato Grosso

Gravar Valores do comboboxex

Mensagem por Marcos »

Tenho o seguinte código com comboboxex:

Código: Selecionar todos

public aRaca:= {}
aadd(aRaca,'NE-Nelore ')
aadd(aRaca,'AN-Alberdeen')
aadd(aRaca,'XX-Composto')
local x_raca :=1
@ 200,005 comboboxex cbo_raca;
   width 90;
   height 255;
  items aRaca value x_raca
Como fazer o sistema gravar NE, ao invés de 1 no Mysql ?
Atenciosamente,
_____________________________
Marcos Antonio da Silva
marcosilva90@hotmail.com
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

Gravar Valores do comboboxex

Mensagem por Toledo »

Amigo, de acordo com o seu código, existe duas opções:

Código: Selecionar todos

cOpc:=Nome_Form.cbo_raca.DisplayValue

ou

cOpc:=aRaca[Nome_Form.cbo_raca.Value]
Em cOpc vai ter o texto que corresponde a opção escolhida no combobox. Então, se você quer apenas as duas primeiras letras da opção escolhida, use LEFT(cOpc,2).

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
Avatar do usuário
Marcos
Usuário Nível 3
Usuário Nível 3
Mensagens: 355
Registrado em: 20 Set 2003 09:16
Localização: Cáceres/Mato Grosso

Gravar Valores do comboboxex

Mensagem por Marcos »

Perfeito toledo, resolvido obrigado pelo retorno prestativo e rápido.
Atenciosamente,
_____________________________
Marcos Antonio da Silva
marcosilva90@hotmail.com
Responder