Re: Ayuda con 2 Combobox ???
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
muy bien !
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42058
cSQLQuery:= "SELECT id_grupo,descripcion FROM cat_grupos"
aGrupos:= oMySQLMain:QueryArray(cSQLQuery)
WITH OBJECT ::oCbxGrupos
:aItems:= ArrayCol( aGrupos, 1, 2 )
END WITH
/*-----------------------------------------------------------------------------------------------*/
FUNCTION ArrayCol( aData, nCol, nCol2 )
/*-----------------------------------------------------------------------------------------------*/
LOCAL aCol := Array( Len( aData ) )
IF nCol == NIL
nCol:= 1
ENDIF
IF nCol2!=NIL
Aeval( aData, {|v,e| aCol[ e ] := +"<"+AllTrim(v[ nCol ])+"> "+AllTrim(aData[ e,nCol2 ]) } )
ELSE
Aeval( aData, {|v,e| aCol[ e ] := AllTrim(v[ nCol ]) } )
ENDIF
RETURN aCol