2 respuestas en este tema

[egostar]

Pues si, tengo un pequeño problema, será que después de varios días durmiendo sólo 3 horas al día ya no doy mas

Resulta que estoy creando un DataSet en tiempo de ejecución de esta forma:

delphi

  CDSTemp.FieldDefs.Add('NOLISTA', ftInteger, 0, False);
  CDSTemp.FieldDefs.Add('NOMALUMNO', ftString, 60, False);
  CDSTemp.FieldDefs.Add('PROMEDIO', ftFloat, 0, False);
  CDSTemp.FieldDefs.Add('OBSERVACIONES', ftString, 150, False);

LO que necesito es asignar al campo PROMEDIO el tipo fkcalculated.

Si lo hago de esta forma

delphi

  CDSTemp.FieldByName('PROMEDIO').FieldKind :=fkCalculated;
  CDSTemp.CreateDataSet;

Me muestra el siguiente error:

---------------------------
Field 'PROMEDIO' not found.
---------------------------
Aceptar 
---------------------------

Si lo hago de esta forma:

delphi

  CDSTemp.CreateDataSet;
  CDSTemp.FieldByName('PROMEDIO').FieldKind :=fkCalculated;

Me muestra el siguiente error:

---------------------------
Cannot perform this operation on an open dataset.
---------------------------
Aceptar 
---------------------------

Si lo hago de esta forma:

delphi

  CDSTemp.CreateDataSet;
  CDSTemp.Close;
  CDSTemp.FieldByName('PROMEDIO').FieldKind :=fkCalculated;

Me muestra el siguiente error.

---------------------------
Field 'PROMEDIO' not found.
---------------------------
Aceptar 
---------------------------

¿ Alguien me puede decir como asignar ese evento al campo Promedio ?

Salud OS

[Rolphy Reyes]

Saludos.

Amigo egostar antes de que llegues al agotamiento, pasa por DelphiAccess y veras que encontraras ayuda.

[Wilson]

Ensaya con esta chapuza:

delphi

var
 MiStringField, MiFloatField :TField;
 //
    CDSTemp.CreateDataSet;
   CDSTemp.Close;
   MiStringField := TStringField.Create(Self);
  with MiStringField do
  begin
    FieldKind := fkCalculated;
    FieldName := 'MiString';
    Size := 100;
    DataSet := CDSTemp;
  end;
  MiFloatField := TFloatField.Create(Self);
  with MiFloatField do
  begin
    FieldKind := fkCalculated;
    FieldName := 'MiFloat';
    DisplayFormat := '000000.00';
    DataSet := CDSTemp;
  end;
  CDSTemp.Open;
end;