Gravar Valores do comboboxex

[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 ?

[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

[Marcos]

Perfeito toledo, resolvido obrigado pelo retorno prestativo e rápido.