Ver Mensaje Individual
  #3  
Antiguo 21-07-2010
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 915
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Primero debes tener claro cuales son los criterios que distinguen los grupos de datos.

Por Ejm:

Si Columna B es una Fecha, comienza un nuevo grupo de datos;

El Codigo podria ser asi:

Código Delphi [-]
Var
   Fecha:TDate;
   fNewGroup:Boolean;
   Valor_1, Valor_A,Valor_C:String;
   Valor_3, Valor_B:TDate;
   Valor_2:Single;
begin
While Not Datos.Eof Do
Begin
       try        
          fNewGroup:=True;
          //Intenta Transformar el contenido de Columna_B a Fecha...
          fecha:=StrToDate(Datos.FieldByName('Columna_B').AsString);
       except
          fNewGroup:=false;
       end;
              
       if fNewGroup then
       begin
            //Procesar Cabezera de grupo       
            Valor_A:=Datos.FieldByName('Columna_A').AsString;
            Valor_B:=Datos.FieldByName('Columna_B').AsDate;
            Valor_C:=Datos.FieldByName('Columna_B').AsString;
       end
       else
       begin
          //Procesar datos del grupo
          Valor_1:=Datos.FieldByName('Columna_A').AsString;
          Valor_2:=Datos.FieldByName('Columna_B').AsFloat;
          Valor_3:=Datos.FieldByName('Columna_B').AsDate;
       end
       Datos.Next;
End;

Espero te sirva...Saludos
Responder Con Cita