Qreport / QRDBText

[scuby]

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