Ver Mensaje Individual
  #2  
Antiguo 21-12-2003
romeroja romeroja is offline
Registrado
 
Registrado: dic 2003
Ubicación: Entre Rios - Argentina
Posts: 6
Reputación: 0
romeroja Va por buen camino
Thumbs up

Investigando puede llegar a una solucion espero que les sirva a alguien agrego el codigo que use en los eventos ongetCols y onGetRows del rvCustomconnection

Código:
procedure TForm2.RvCustomConnection1GetCols(
  Connection: TRvCustomConnection);
begin
      With Connection do
        begin
             DoGetCols; // Creo las columnas (campos)
             WriteField('Apellido', dtString, 50, '','');
             WriteField('Nombre', dtString, 50, '','');
             WriteField('Provincia', dtString, 50, '','');
             WriteField('Profesion', dtString, 50, '','');
      end;
end;

procedure TForm2.RvCustomConnection1GetRow(
  Connection: TRvCustomConnection);
var
    i: integer;
begin
    i := grid2.RowCount - 1;
    Connection.DataRows := i;
    if  Connection.DataIndex < Connection.DataRows then
        begin
            TempList.Clear; // TStrings declarado Global
            TempList.AddStrings(grid2.Rows[Connection.dataindex + 1]);// asigno al TStrings la fila de la grilla
           Connection.WriteStrData( '',TempList.Strings[3]); //Asigno de la lista el elmento al campo correspondiente
           Connection.WriteStrData( '',TempList.Strings[1]);
           Connection.WriteStrData( '',TempList.Strings[0]);
           Connection.WriteStrData( '',TempList.Strings[2]);
           Connection.WriteNullData; 
        end
        else
             Connection.DoEOF;
end;
Espero que a alguien le sirva es la forma que encontre de hacerlo si alguien encuentra una manera distinta soy todo oidos
muchas gracias
Responder Con Cita