Buenos dias

He activado un listbox con una tabla de Mysql y deseo hacer
aumentar un Get para hacer una Busqueda Incremental

Les agradecere si alguien del Foro me da una mano
Gracias
Lubin Azahuanche
Lubsys Asesores EIRL

Nota: Esta es parte del codigo:


*Activamos objeto de la Base de datos
oDbAdmin:=oCon:DataBaseByName(cDbName,.t.)
*Creamos Objeto Tabla a Mantener
oTabla:= oCon:MyTable( cNmTabla )

IF .not. oTabla:Open()
*No fue posible abrir la tabla a Mantener
MSGINFO("No esta disponible la tabla " + cNmTabla + " consulte con
el Administrador")
RETURN .F.
ENDIF

*Verificamos datos de tabla
nReg:=oTabla:RecCount() && Nro de Registros
ncol:=oTabla:FieldCount() && Nro de Campos de la Tabla

if nReg=0 && Si no hay ningun Registro ,
creamos un Registro en Blanco
oTabla:aBuffer:=array(nCol) && Creamos un Vector Buffer de nCol
Elementos Vacios
oTabla:Blank()
oTabla:Insert(.t.) && Grabamos el Registro en Blanco en
la Tabla
endif


DEFINE CURSOR oDedo RESOURCE "Dedo"

DEFINE DIALOG oDlg RESOURCE "MDIR10_S1" TITLE "{ "+ PROCNAME()
+" } " + " Mantenimiento de Directorio "
REDEFINE LISTBOX oLbx FIELDS str(LeeCampo(oTabla,"IDREC"),4,0) ,;
LeeCampo(oTabla,"RUC_DT") ,;
LeeCampo(oTabla,"NOMCIA_DT") , ;
DTOC(LeeCampo(oTabla,"FINI_DT")) ,;
LeeCampo(oTabla,"CONCRED_DT") , ;
STR(LeeCampo
(oTabla,"CREDIMAX_DT"),12,2),;
STR(LeeCampo
(otabla,"NSUC_DT"),3,0) ;
HEADERS "Id.Cia","Nr.Ruc","Nombre de
Empresa","Fec.Ini", "Cred?","Linea Credito","N.Sucursales" ;
CURSOR oDedo;
FIELDSIZES 40,80,200,60,40,100,40 ;
ID 172 OF oDlg
mysetBrowse(oLbx,oTabla)