Ayuda con 2 Combobox ???

Re: Ayuda con 2 Combobox ???

Postby Antonio Linares » Tue Aug 16, 2022 5:54 am

muy bien !
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Ayuda con 2 Combobox ???

Postby remtec » Tue Aug 16, 2022 1:27 pm

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
remtec
 
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Ayuda con 2 Combobox ???

Postby gabo » Sat Aug 20, 2022 2:40 am

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" }

Code: Select all  Expand view  RUN

  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

 

Saludo!
gabo
 
Posts: 128
Joined: Tue Jan 03, 2006 8:31 pm

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 77 guests