Problemas con Campos calculados

[jlrbotella]

Hola:

Tengo una tabla que tiene 2 campos y se ven en un grid perfectamente. Ahora si añado un campo calculado, en el grid solo aparece este último.

La forma que he creado el campo calculo es la siguiente:


QuienPideDescri := TStringField.Create(Self);
QuienPideDescri.FieldName := 'QuienPideDescri';
QuienPideDescri.Calculated := true;
QuienPideDescri.Visible := true;
QuienPideDescri.DataSet := tabla1;
QuienPideDescri.Name := self.QuienPideDescri.Name + self.deDescri.FieldName;

tabla1.FieldDefs.Update;





¿Alguién sabe porqué ocurre esto?.

Saludos,
JL

[marcoszorrilla]

Prueba con este código:

var
f: TField;
i: Integer;
begin
table1.FieldDefs.Update
Table1.Close;
for i := 0 to Table1.FieldDefs.Count - 1 do
{create persistent field that does not exist}
if table1.FindField(table1.FieldDefs[i].Name) = nil then
table1.FieldDefs.Items[i].CreateField(Table1);
{create a calculated field}
f := TStringField.Create(Table1);
f.Name := 'Table1CalcField';
f.FieldName := 'CalcField';
f.DisplayLabel := 'CalcField';
f.Calculated := True;
f.DataSet := Table1;
Table1.Open;
end;

Un Saludo.

[jlrbotella]

Hola:

Pues tienes razón. No sabía que antes tienes que crear los campos persistentes esos.

Gracias,
JL