Ver Mensaje Individual
  #2  
Antiguo 15-07-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Quita el first.
Código Delphi [-]
procedure TF_Material.Button7Click(Sender: TObject); 
  VAR i,a:INTEGER; 
begin
  F_ModulDades.Material.Last;         
  F_ModulDades.Material.First;         
  F_ModulDades.Material.RecordCount;         
  a:=F_ModulDades.Material.RecordCount;        
  Label58.Caption:= inttostr(a);         
  for i:= 1 to a do         
  begin           
    // F_ModulDades.Material.First;           
    F_ModulDades.Material.Edit;           
    F_ModulDades.MaterialAUTOI.Value:= i;           
    F_ModulDades.Material.Post;           
    F_ModulDades.Material.Next;        
  end; 
end;
Responder Con Cita