Hola amigos ando en busca de un combobox para hacer Editar,Insertar y Eliminar
saludos
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour COMBOBOX, Editar,Insertar y Eliminar
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
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
// 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 aDatamuchas Gracias
saludos