Hi,
habe es genau so gemacht wie beschrieben, die Verweise stehen. Wenn ich die Preview anzeigen lasse, dann springt der "Cursor" in meinem Testgrid auch auf den 2. Datensatz oder besser auf den letzten, aber er zeigt mir immer noch nur einen Datensatz im Druckbild an...Warum??
Zum Code...welchen willst denn haben? Poste dir hier mal die SELECT-Anweisung...
Delphi-Quellcode:
procedure TForm3.Druckvorschau1Click(Sender: TObject);
begin
if Form1.Label4.Caption <> '2' then showmessage('Sie sind nicht berechtigt diese Funktion zu nutzen!') else
begin
Query2.First;
Query2.Open;
Form10.QRLabel13.Caption := Form2.Label4.Caption;
Form10.QRLabel14.Caption := '' + DateToStr(Date);
Form10.Quickrep1.preview;
end;
end;
So das nur die Druckvorschau nun die Sachen die hinter den beiden
Query stecken....
Delphi-Quellcode:
begin
s := '
select * FROM Studenten WHERE Matnr='+#39+ edit1.Text+#39+'
';
Form3.query1.close;
Form3.Query1.Sql.Text := s;
Form3.Query1.Active:=true;
Form3.Query1.First;
t := '
select VNr, VName, VArt, Datum, Von, Bis, SCP, Verantwortlicher FROM studvera, veranstaltungen WHERE VNr1=VNr and Matnr1='+#39+ edit1.text +#39+'
';
Form3.query2.close;
Form3.Query2.Sql.Text := t;
Form3.Query2.Active:=true;
Form3.Query2.First;
end;
Hoffe das ist das was du wolltest....
Anbei die Bilder aus dem laufenden Programm....
http://www.nesse-city.de/GridvorDruck.jpg
http://www.nesse-city.de/Druckbild.jpg
http://www.nesse-city.de/GridnachDruck.jpg