![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#11
|
||||
|
||||
|
He colocado un rejilla y he dado altas, bajas y siempre me marca el número correcto de registros:
Código:
procedure TForm1.FormActivate(Sender: TObject); begin label1.Caption:=IntToStr(Table1.RecordCount); end; procedure TForm1.Table1AfterDelete(DataSet: TDataSet); begin label1.Caption:=IntToStr(Table1.RecordCount); end; procedure TForm1.Button1Click(Sender: TObject); begin Table1.Append; end; procedure TForm1.Table1AfterScroll(DataSet: TDataSet); begin label1.Caption:=IntToStr(Table1.RecordCount); end;
__________________
Guía de Estilo de los Foros Cita:
|
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|