Ver Mensaje Individual
  #3  
Antiguo 27-04-2006
kia kia is offline
Miembro
 
Registrado: jul 2003
Posts: 78
Reputación: 23
kia Va por buen camino
Smile hola de nuevo

Busco por por un campo y luego filtro la tabla.
luego selecciono el campo para cambiar dato error por dato bueno,
continua con el parrafo siguiente:

Código Delphi [-]

  // showmessage('campo busca  '+laton);
  // showmessage('valor filtro '+cobre);
  // showmessage('campo cambia  '+oro);
  // showmessage('valor error '+plata);
  // showmessage('valor bueno '+platino);

 Table1.First;
   while not Table1.Eof do //recorremos la tabla filtrada anteriormente
    begin
     Table1.Edit;
     if buscafecha='no'then
        begin  //con string
        if Table1.FieldByName(ORO).asstring=PLATA then //campo dato erroneo
           Table1.FieldByName(ORO).Value:=PLATINO;      //campo dato bueno
        end else begin / con fechas 
        if Table1.FieldByName(ORO).asdatetime=strtodate(PLATA) then
           Table1.FieldByName(ORO).Value:=PLATINO;
        end;
     Table1.Post;
     if laton<>oro then//evita el next cuando busca y cambia la misma tabla
        Table1.next;
    end;
    Table1.Refresh;
  end;

Ahora continua la siguente tabla repitiendo el proceso, y va ok.
pero si la tabla no existe el campo de busqueda 'laton' da Error.
Creo que no me explique bien anteriormente.Gracias por la respuesta.Kia
__________________
Nadie nace enseñado, pide y se te dara.
Responder Con Cita