muy bien !
Board index FiveWin para Harbour/xHarbour Ayuda con 2 Combobox ???
Page: 1 2 (18 posts)
Maestro Antonio.
Muy buen dia.
Disculpe todas las molestias.
Muy agradecido por su tiempo, ayuda y preocupacion.
Tengo la mala costumbre de no apagar mi equipo despues que termino de trabajar, por las ventanas con informacion importante de trabajo, eso me ahorra tiempo, pero finalmente me juega mas jugadas como en esta ocacion.
Muchas gracias.
Saludos
Antonio.
FWH 22.10 - HARBOUR - PELLES C
Un Poquito tarde, pero quizas alguien le pueda servir aqui es la funcion que regresa un arreglo de la forma
{ "Abarrotes, "Carnes frias", "Etc" }
ó
{ "<01> Abarrotes", "<02>Carnes frias", "<03> Etc" }
Saludo!
{ "Abarrotes, "Carnes frias", "Etc" }
ó
{ "<01> Abarrotes", "<02>Carnes frias", "<03> Etc" }
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 aColSaludo!
Page: 1 2 (18 posts)