![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#3
|
|||
|
|||
|
SOLUCION:
Código:
...
var
p : TDataSetNotifyEvent;
pt : pointer;
begin
...
p:= dataset.OnCalcFields;
pt := @dataset.OnCalcFields;
dataset.OnCalcFields := nil;
...
// calculos con los campos
...
dataset.OnCalcFields := p;
if pt <> nil then
dataset.OnCalcFields(dataset);
...
__________________
El secreto de la libertad está en no tener miedo. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|