Hallo, danke für die Antwort, die Eigenschaft ist leider auch false
hier mal ein Code Ausschnitt, vielleicht fällt ja noch was auf:
Code:
QuCloneData := TFDQuery.Create( nil );
QuCloneData.Connection := fConnection;
QuCloneData.Sql.Text := 'Select * from !Tabelle ';
QuCloneData.MacroByName( 'Tabelle' ).AsRaw := fTableName;
QuCloneData.Open;
for i := 0 to QuCloneData.Fields.Count-1 do begin
if (( not QuCloneData.FieldDefs[i].InternalCalcField )
and ( AnsiUpperCase(QuCloneData.Fields[i].FieldName) <> AnsiUpperCase( fKeyFieldName ) )) then begin
if Trim( FieldString ) <> '' then begin
FieldString := FieldString + ',';
ParamString := ParamString + ',';
end;
FieldString := FieldString + QuCloneData.Fields[i].FieldName;
ParamString := ParamString + ':' + QuCloneData.Fields[i].FieldName;
end;
end;