Como crear un campo en tiemo de ejecucion

[xerkan]

Me gustaria añadir un campo de tipo lookup en tiempo de ejecucion sobre una tabla, lo estoy creando de esta manera:

var
Campo:TStringField;
ident:TIntegerField;
begin
with datamodule do
begin
ident:=TIntegerField.Create(nil);
ident.FieldName:='IDcampo';
ident.FieldKind:=fkData;
ident.Name:='IDcampo';
qryTabla.Fields.Add(ident);

Campo:=TStringField.Create(nil);
Campo.DisplayLabel:='Nombre';
Campo.FieldKind:=fkLookup;
Campo.FieldName:='NOMBRE';
Campo.LookupDataSet:=qryTabla2;
Campo.LookupKeyFields:='IDcampo';
Campo.LookupResultField:='NOMBRE';
Campo.KeyFields:='IDcampo';
Campo.Size:=30;
Campo.Lookup:=True;
Campo.Name:='Campo';
qryTabla.Fields.Add(Campo);
end;
end;

pero al abrir la tabla me suelta una violacion de acceso

[haron]

pon un punto de ruptura al comienzo del programa y ejecutalo paso a paso.

de todas formas tengo una intriga, para que quieres añadir un nuevo campo al dataset en tiempo de ejecucion?

ten en cuenta tambien que la columna que añadas debe coincidir con una columna real o bien debe ser una columna calculada.

[xerkan]

Por q quiero usar una query q tengo para realizar busquedas (vamos para no tener una query q solo lo voya a usar para eso) y hago antes una select tipo (select max (idCampo) as idcampo from tabla) y a la vez quiero usar un campo lookup para q muestre el campo nombre de otra tabla q coincide con idcampo pero no puedo usar la sentencia joiner de sql por q estan en bases de datos distintas (uso la ibo para conectarme)

[sanpra]

Yo también estoy intentando insertar campos en un ClientDataSet en tiempo de ejecución para almacenar totales por año según un rango de fechas (puede haber más ó menos años) y al pasar por CreateDataSet da un error que no soy capaz de resolver...

Alguién puede echarme un cable??

Zenkiu por todo!!

[sanpra]

Estoy trabajando con Delphi 5...