Intento realizar una actualiacion de registro en una tabla de FB pero me da el error. NOT IN EDIT MODE..... POR QUE?
Código:
i := 0;
ProgressBar1.Min := 0;
DM.TListasClientesCierre.Open;
DM.TListasClientesCierre.Last;
ProgressBar1.Max := DM.TListasClientesCierre.RecordCount;
DM.TListasClientesCierre.First;
while not Dm.TListasClientesCierre.eof do begin
i := i + 1;
ProgressBar1.Position := i;
Dm.THistoricoClientes.Edit;
Dm.THistoricoClientes.Append;
Dm.THistoricoClientesCODIGO.AsString := DM.TListasClientesCierreCODIGO.AsString;