Ayuda con combox

[mjcc]

Necesito colocar los campos de una base de datos en un combobox por ejemplo nombre, codigo clienteo es la descripcion y otro el codigo del cliente. Una vez que realicen esta operacion necesito que el codigo lo pueda capturar para poder realizar una busqueda en otro fichero, y no tengo ni idea de como hacerlo.
Ya he buscado en el foro, pero no encuentro nigun ejemplo de este tipo

GRACIAS

[Antonio Linares]

Manuel,

Primero crea y rellena un array con el contenido del campo ó campos que quieras mostrar:

Code: Select all  Expand view

local oCbx, cValor, aValores := {}

Alias->( DbGoTop() )
while ! Alias->( EoF() )
   AAdd( aValores, Str( Alias->Campo ) )
   Alias->( DbSkip( 1 ) )
end

@ ..., ... COMBOBOX oCbx VAR cValor ITEMS aValores ... ;
   ON CHANGE HazAlgo( oCbx:nAt )


oCbx:nAt es la posicion del elemento seleccionado. Tendrás que hacer un Alias->( DbGoTop() ), Alias->( DbSkip( oCbx:nAt ) ) para ir al registro seleccionado. En cValor tienes el valor seleccionado como cadena.

[mjcc]

OK, gracias