Hallo alle miteinander...
ich habe das jetzt über Umwege gelöst...
1. dynamisch eine Tabelle erzeugt
2. Datensatz mit den Komponenten mit Schleife durchlaufen und in der neuen Tabelle die Feldnamen
als einzelne Datensätze abgelegt.
Jetzt habe ich eine Datenmenge als Grundlage für den Report.
3. im BeforePrint des Bandes hole ich mir dann über eine
Query die passenden Daten.
Delphi-Quellcode:
procedure TempTable1;
var
Tabelle: TTable;
begin
Form1.TabTemp.Active:= False;
if FileExists(Form6.Verzeichnis.Text + '\Temp.DB') then DeleteFile(Form6.Verzeichnis.Text + '\Temp.DB');
Tabelle:= TTable.Create(nil);
with Tabelle do
begin
SessionName:= Form1.TabKunden.SessionName;
TableType := ttParadox;
TableName := Form6.Verzeichnis.Text+ '\Temp.DB';
with FieldDefs do
begin
Clear;
Add('Bezeichnung', ftString, 30);
end;
CreateTable;
end;
Form1.TabTemp.Active:= True;
end;
Delphi-Quellcode:
procedure Anlagenschema;
var
A: Integer;
begin
for A:=0 to 8 do
begin
if Form1.TabAnlagenschema.Fields.Fields[A].AsBoolean then
begin
Form1.TabTemp.Append;
Form1.TabTemp.Edit;
Form1.TabTemp.FieldValues['Bezeichnung']:= Form1.TabAnlagenschema.Fields.Fields[A].FieldName;
Form1.TabTemp.Post;
end;
end;
end;
Vieleicht hilft es ja jemandem mit ähnlichen Sorgen....
