Gracias, estoy probando con eso ahora, lo que pasa es que no consigo que me haga caso, intento limpiar los fields que ya hay definidos y con "ClearFields" me pide que este en modo Edit o Insert y me da el error del read-only. Si uso FieldDefs.Clear no me los limpia tampoco. Y si añado un campo con FieldDefs.Add usando el siguiente codigo ->
Código:
var i: Integer;
var T: TStringField;
begin
with SQLDataSet1 do
begin
CommandText := 'SELECT '+'ov_cia.cia AS Companyia, '
+'od_hospitalitzacio.data AS Dat, '+'oa_data.SETMANA_DEL_ANY AS S, '
+'oa_data.MES_DEL_ANY AS M, '+'oa_data.TRIMESTRE AS Trimestre, '
+'SUM(od_hospitalitzacio.ingressats) AS Ingr, '+'SUM(od_hospitalitzacio.altes) AS Alt, '
+'SUM(od_hospitalitzacio.ingressos) AS Ingres '+'FROM '+'od_hospitalitzacio, '
+'ov_cia, '+'oa_data '+'WHERE '+'od_hospitalitzacio.id_cia = ov_cia.id_cia AND '
+'od_hospitalitzacio.data = oa_data.DATA AND '
+'oa_data.ANY4 = TO_NUMBER(TO_CHAR(SYSDATE-1, ' + QuotedStr('YYYY')
+ ')) '+'GROUP BY '+'od_hospitalitzacio.data, '+'oa_data.SETMANA_DEL_ANY, '
+'oa_data.MES_DEL_ANY, '+'oa_data.TRIMESTRE, '+'ov_cia.cia';
ExecSQL;
FieldDefs.Clear;
FieldDefs.Add('Datos', ftString, 0, True);
end;
Con esto pasa totalmente de mi, no limpia y no añade, sigue usando los que ya fueron definidos a mano. Alguien sabe porque me hace esto!? Gracias!