COMBOBOX, Editar,Insertar y Eliminar

COMBOBOX, Editar,Insertar y Eliminar

Postby jbrita » Sat Sep 09, 2023 10:04 pm

Hola amigos ando en busca de un combobox para hacer Editar,Insertar y Eliminar
saludos
jbrita
 
Posts: 502
Joined: Mon Jan 16, 2006 3:42 pm

Re: COMBOBOX, Editar,Insertar y Eliminar

Postby jnavas » Sun Sep 10, 2023 12:25 am

Jose,
Saludos, puedes adaptar este ejemplo a tu proposito

UPDATECBX(oCbx,1,NIL,"Insetar al Final")
UPDATECBX(oCbx,3,1,"Modificar 1")
UPDATECBX(oCbx,4,NIL) // Quitar el Ultimo

Code: Select all  Expand view

// Agregar una nueva Linea
FUNCION UPDATECBX(oCbx,nOption,nAt,cData)

   DEFAULT nOption:=1,;
                 nAt     :=1,;
                 cData  :="Nuevo"

   IF nOption=1
      // Agregar

     DEFAULT nAt:=LEN(oCbx:aItems)+1

      AINSERTAR(oCbx:aItems,nAt,cData)

  ENDIF

  IF nOption=3
      oCbx:aItems[nAt]:=cData
  ENDIF

  IF nOption=4

     DEFAULT nAt:=LEN(oCbx:aItems)

     ARREDUCE(oCbx:aItems,nAt) // Quitas el Primer elemento

 ENDIF

 oCbx:SetItems(oCbx:aItems)

 IF !Empty(cData)
    oCbx:Set( cData )
 ENDIF

RETURN


/*
// Remover Lista
*/

FUNCTION ARREDUCE(aArray,nAt)

   IF ValType(aArray[nAt])="A" // Borrar Objetos
     Aeval(aArray[nAt],{|a,n|aArray[nAt,n]:=NIL})
   ENDIF

   IF ValType(aArray[nAt])="O" // Borrar Objetos
     aArray[nAt]:=NIL // Borrar Objetos
   ENDIF

   ADEL(aArray,nAt)
   ASIZE(aArray,Len(aArray)-1)

RETURN aArray
/*
// Insertar Arreglo
*/

FUNCTION AINSERTAR(aData,nAt,uValue)

   DEFAULT nAt:=LEN(aData)+1

   AADD(aData,NIL)
   AINS(aData,nAt)
   aData[nAt]:=uValue

RETURN aData
 
User avatar
jnavas
 
Posts: 479
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela

Re: COMBOBOX, Editar,Insertar y Eliminar

Postby jbrita » Tue Sep 12, 2023 1:50 pm

muchas Gracias
saludos
jbrita
 
Posts: 502
Joined: Mon Jan 16, 2006 3:42 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 68 guests