Ver Mensaje Individual
  #9  
Antiguo 24-05-2012
patxim patxim is offline
Registrado
 
Registrado: feb 2007
Posts: 8
Reputación: 0
patxim Va por buen camino
Hola eficsa,

Funciona perfectamente, al final yo lo he hecho así:

Código Delphi [-]
function GetFieldAtColRow(ACol, ARow: Integer; ADOT: TADOTable): string;
var
BM: TBookMark;
begin
if (ARow > 0)and( ACol > 0)and(ARow < ADOT.RecordCount)and(ACol < ADOT.FieldCount) then
begin
BM:= ADOT.GetBookmark; // guardar posición actual en la tabla
ADOT.DisableControls; // datos asociados al DataSet no se muestran
//
// Posicionarte, obtener el dato...
//
ADOT.RecNo := ARow;
Result:=ADOT.Fields[ACol].AsString;
ADOT.GotoBookmark(BM); // volver a posición guardada
ADOT.FreeBookmark(BM);
ADOT.EnableControls; // restaurar mostrar datos
end;
end;

supongo que estará bien.

Muchas gracias, Patxi.

Última edición por Casimiro Notevi fecha: 24-05-2012 a las 11:43:53.
Responder Con Cita