Aug 22
Una truquito que te muestra una barra de progreso cuando esta indexando una tabla.
- With
- .Caption=""
Public
oFormoForm =Createobject("Form")
Set Talk Off
Create Cursor MiTabla (Campo C(12))
- For
Function
Progreso(Campo, nRecno, nTotReg)- cProg = Transform(Round((nRecno/nTotReg)*100,0)) + "%"
- oForm.Caption="Progreso " + cProg
- nbsp; oForm.oBarra.Value= nRecno
- Return Campo
Endfunc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
