FoxPro/Visual FoxPro - Como Ordeno registros nuevos o cambios de los mismos en un combo, dentro de Visual Fox Pro 9

IF USED("LFCOMBO")

	SELECT LFCOMBO

	USE

ENDIF

CREATE CURSOR LFCOMBO ("NOMBRE" C(40),"TEMA" C(20))

SELECT LFCOMBO

INSERT INTO LFCOMBO (NOMBRE,TEMA) VALUES("ABEJA","PICA")

INSERT INTO LFCOMBO (NOMBRE,TEMA) VALUES("VACA","MUGE")

INSERT INTO LFCOMBO (NOMBRE,TEMA) VALUES("LEON","RUGE")

INSERT INTO LFCOMBO (NOMBRE,TEMA) VALUES("PERRO","LADRA")

INSERT INTO LFCOMBO (NOMBRE,TEMA) VALUES("GATO","MAULLA")

INDEX on nombre TAG nnom

WITH THISFORM.COMBO1

	.RowSourceType= 2

	.RowSource="lfcombo"

	.requery

ENDWITH

&& LostFocus del ComboBox

LcValue=UPPER(ALLTRIM(this.Text))

IF !EMPTY(LCvALUE)

	IF !INDEXSEEK(lcValue,.f.,"LFCOMBO","NNOM")

		SELECT LFCOMBO

		APPEND BLANK

		REPLACE NOMBRE WITH LCVALUE

		THIS.Requery

	ENDIF

ENDIF

* Init del Form, después de crear el cursor LFCOMBO

Thisform.GenCombo()

* METODO GENCOMBO()

* ----------------------------------

* llamar con Thisform.GenCombo()

SELECT LFCOMBO

GO TOP

IF !PEMSTATUS(thisform,"VCOMBO",5)

	ADDPROPERTY(thisform,"VCOMBO",TRIM(LFCOMBO.NOMBRE))

ENDIF

nit=0

WITH thisform.Combo1

	.clear

	.RowSourceType=0

	.RowSource=""

	.Sorted=.t.

	.bOUNDCOLUMN=1

	.ControlSource='thisform.vCombo'

	SELECT lfCombo

	SCAN

		nit=nit+1

		.AddListitem(TRIM(nombre),nit,1)

		.ADdListitem(TRIM(tema),nit,2)

	ENDSCAN

	.requery

	.refresh

endwith

&& ComboBox.LostFocus

LcValue=UPPER(ALLTRIM(this.Text))

IF !EMPTY(LCvALUE)

	IF !INDEXSEEK(lcValue,.f.,"LFCOMBO","NNOM")

		SELECT LFCOMBO

		APPEND BLANK

		REPLACE NOMBRE WITH LCVALUE

		THISFORM.VCOMBO=LCVALUE   && mantiene la selección del item ingresado.

		THISFORM.GENCOMBO()   && llamada que regenera el ComboBox

	ENDIF

ENDIF