zajoma
11-03-2009, 12:49:39
Hola a todos. Escribo para ver si me podeis ayudar. Estoy intentado crear componentes TFloatField que me formateen las columnas de una SQL en Access para visulizarlos en una regilla. La creación no es problema pero no consigo relacionar los TFloatField con los datos de la regilla. Lo hago de la siguiente forma:
// el primer campo es fijo
with ADOQuery1 do if ( RecordCount > 0 ) then
for i := 1 to FieldCount - 1 do begin
// creo el componente
FloatField := TFloatField.Create( ADOQuery1 );
FloatField.Name := format( 'D%d', [i] );
FloatField.FieldName := ADOQuery1.Fields[i].FieldName;
FloatField.DisplayFormat := '#.00'; // no funciona en la regilla
// creo la columna en la regilla
j := DBGrid1.Columns.Count;
DBGrid1.Columns.Add;
DBGrid1.Columns[ j ].FieldName := FloatField.FieldName;
DBGrid1.Columns[ j ].Title.Alignment := taCenter;
end;
Os agradeceria cualquier información.
// el primer campo es fijo
with ADOQuery1 do if ( RecordCount > 0 ) then
for i := 1 to FieldCount - 1 do begin
// creo el componente
FloatField := TFloatField.Create( ADOQuery1 );
FloatField.Name := format( 'D%d', [i] );
FloatField.FieldName := ADOQuery1.Fields[i].FieldName;
FloatField.DisplayFormat := '#.00'; // no funciona en la regilla
// creo la columna en la regilla
j := DBGrid1.Columns.Count;
DBGrid1.Columns.Add;
DBGrid1.Columns[ j ].FieldName := FloatField.FieldName;
DBGrid1.Columns[ j ].Title.Alignment := taCenter;
end;
Os agradeceria cualquier información.