| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Invitado
|
 Publicado: Jue 08 Jul, 2004 5:18 am Asunto: TTable |
 |
|
Hola
Como hago para saber cuando el cursor de una tabla (TTable) se encuentra posicionado en el primer registro o en el ultimo registro.
PD: estoy trabajando con una base de datos paradox
Gracias |
|
| Volver arriba |
|
 |
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Jue 08 Jul, 2004 5:36 am Asunto: |
|
|
Si lo que deseas es saber nada mas la posicion, puedes utilizar el
| Código: | Table->Eof; // final |
o el
| Código: | Table->Bof; // principio |
si deseas ir al Primer Registro
si deseas ir al Ultimo
_________________
 |
|
| Volver arriba |
|
|
Manolo(er_lolo)
Capt
Registrado: 28 Jul 2003Mensajes: 172Ubicación: Salamanca
|
| Publicado: Jue 08 Jul, 2004 7:26 am Asunto: |
|
|
Para saber en que registro estas puedes utilizar :
Te indica en que posicion te encuentras. Y como decia cesar si solo es comprobar el primero o el ultimo BOF, EOF.
Un saludo. |
|
| Volver arriba |
|
|
Invitado
|
| Publicado: Jue 08 Jul, 2004 8:07 am Asunto: |
|
|
hola nuevamente,
ahora como hago para saber estas mismas posiciones (primera y ultima), pero cuando recorro los registros por medio de un DBGrid.
Ya que con un DBGrid me puedo desplazar por los registros por medio del scrollbar, y los eventos no capturan este movimiento.
Gracias |
|
| Volver arriba |
|
|
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
| Publicado: Jue 08 Jul, 2004 8:39 am Asunto: |
|
|
¿Has probado en el evento AfterScroll del TTable al cual está enlazado tu DBGrid?
ejemplo sencillo:
void __fastcall TForm1::Table1AfterScroll(TDataSet *DataSet)
{
ShowMessage("Estás en el registro número "+IntToStr(Table1->RecNo));
}
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
|
Invitado
|
| Publicado: Jue 08 Jul, 2004 8:49 am Asunto: |
|
|
Para realizar esto, dentro de la funcion KeyDown, Del DBGrid, pon lo siguiente.
| Código: |
void __fastcall TForm1::DBGrid1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
switch(Key){
case VK_DOWN:
this->Table1->Next(); // tu tabla
if(this->Table1->Eof){
ShowMessage("Ultimo Registro");
this->Perform(WM_NEXTDLGCTL, 0, 0);//Adelante otro componente
}
break;
case VK_UP:
this->Table1->Prior();
if(this->Table1->Bof){
ShowMessage("Primer Registro");
this->Perform(WM_NEXTDLGCTL, 1, 0);//ATRAZ otro componente
}
break;
}
Key=0;// esto lo pongo para que no suene cada vez
// que presionas la tecla arriba o abajo..
}
//---------------------------------------------------------------------------
|
Espero te sirva ....
la parte de Perform, se realiza si quieres que al llegar al primer regitro pase al anterior componente, que tengas en el form, o siguiente, cuando termines de recorrer la tabla, prueba con un boton, DBGrid, y otro boton,
creados en ese mismo orden... |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Jue 08 Jul, 2004 8:53 am Asunto: |
|
|
Cuantos enlaces habre puesto asi.. como invitado, je je
_________________
|
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
