but I CAN'T because system doesn't recognize my new fields
Code: Select all
i:= livello;
livello:= StrToInt(query_dsb.fieldbyname('LIVELLO').asstring);
while i <= livello do
begin
nome_livello:= 'livello' + AnsiRightStr('00'+IntToStr(i), 2);
vt_dsb.AddField(nome_livello, ftString, 4);
i:= i+1;
end;
vt_dsb.Refresh;
vt_dsb.FieldByName(nome_livello).asstring:= query_dsb.fieldbyname('ART_CODICE_FIGLIO').asstring;