Cita:
Empezado por Chris
Una cosa que veo en el primer código, es que no estás haciendo una llamada a EnableControls. Por otro lado, no me queda claro el problema que estás teniendo con el primer código.
Saludos,
Chris
|
Como dice el compañero Chris, creo que falta el EnableControls después de volverlo al registro que estaba antes de realizar la suma...
Código Delphi
[-]
begin
Temp:=0;
PBookmark:=Q.GetBookmark;
Q.DisableControls;
for i:=0 to DBG1.SelectedRows.Count-1 do
begin
Q.GotoBookmark(pointer(DBG1.SelectedRows.Items[i]));
Temp:=Temp+Q.fieldbyName('total').AsFloat;
end;
ResultadoParcial.Caption:=' : '+FormatFloat('#,##0.00 €',Temp)+' Reg: '+IntToStr(DBG1.SelectedRows.Count);
Q.GotoBookmark(PBookmark);
Q.EnableControls;
Q.FreeBookmark(PBookmark);
end;
A ver que pasa ahora...