Estimados, para no inventar el agua helada
alguien tiene desarrollado alguna clase similar a dbcombo (muestra un lista y retorna un codigo)
para para dolphin o ado?
es muy necesaria.
salu2
* Enhancement: DBCOMBO now works also with RecordSets, Dolphin Query, Any Object like TDataBase (which supports methods GoTop(), RecNo(), GoTo() and FieldGet( with name of the field )), Multidimensional arrays, Array of Hashes.
Usage: ALIAS oRs, ALIAS oQry, ALIAS oDbf, ALIAS aData, etc.
Great ++++1.
When will be ready the next reléase?.
Thanks 
...
aItems := oRecordSet:GetRows()
...
redefine combobox nItem id 101 of oDlg prompts GetColFromArray( aItems, 1)
...
function GetColFromArray( aArray, nCol )
local aCol := {}
local aItem
default nCol := 1
if hb_isarray( aArray )
for each aItem in aArray
aadd( aCol, aItem[ nCol ] )
next
endif
return aColEsta claro que usando 2 array se resuelve temporalmente el problema y por los momentos es lo que hago asi:
oQryOpera := TDolphinQry():New( "SELECT * FROM delipollo_operadores " +; // MAESTRO OPERADORES CON FillArray
"ORDER BY opera_id", oDatos:oConex )
oQryOpera:GOTOP(); aOpera1 := oQryOpera:FillArray( , {"opera_id"} )
oQryOpera:GOTOP(); aOpera2 := oQryOpera:FillArray( , {"opera_nombre"} )
opera_ide y opera_nombre son los campos que llenaran los ARRAY, es decir el nombre a mostrar y el codigo a guardar, espero te ayude...
REDEFINE GET aGet[3] VAR aVar[3] ID 4050 OF oDlg PICTURE "@!" UPDATE READONLY ; // COD.OPERADOR
VALID ( IF( Empty( aVar[3] ), .t. ,;
( aVar[4] := aOpera1[ ASCAN( aOpera1, aVar[3] ) ], aGet[4]:REFRESH(), .t. ) ) ) ;
WHEN ( lNew )
REDEFINE DBCOMBO aGet[4] VAR aVar[4] ID 4001 OF oDlg UPDATE ; // NOMB.OPERADOR
ITEMS aOpera1 ; // LO QUE GUARDARA
LIST aOpera2 ; // LO QUE MOSTRARA
ON CHANGE( aVar[3] := aOpera1[aGet[4]:nAt], aGet[3]:REFRESH() ) ;
WHEN ( lNew )
pero cuando es DBF se hace mas rapido y comodo sin pasar por todo este trabajo, la idea seria que se pudiese hacer de la misma manera con el QUERY que con la DBF, es lo he intentado hacer desde hace tiempo, pero aun no lo consigo, igual que Carlos estoy en la misma solicitud, gracias, saludos...