FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Crear Campo Calculado
Saludos amigos.
Como creo un campo calculado sin usar el cuadro de diálogo New Field, probé algo así pero me dá error. if TablaName = 'Maestro' then begin A := TField.Create(Tabla); A.Calculated :=true; A.FieldName := 'Edad'; A.SetFieldType(ftBytes); A.DisplayWidth:= 50; a.Index := 1; Tabla.Fields.Add(A); end; Es que uso el mismo KadaoTable para varias táblas y a la tabla Maestro de trabajadores necesito calcularle la edad. Gracias por su ayuda. un saludo
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
#2
|
||||
|
||||
Prueba con este ejemplo:
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;
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
Gracias
Me funciona correctamente, gracias por tu habitual ayuda Román.
Ja ja ja Solo era una broma Marcos, recordando el día que me equiboqué de nombre y protestaste. Un saludo
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|