COMBOBOX, Editar,Insertar y Eliminar

[jbrita]

Hola amigos ando en busca de un combobox para hacer Editar,Insertar y Eliminar
saludos

[jnavas]

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
 

[jbrita]

muchas Gracias
saludos