gesonderte Ergebnisberechnung in DB-Tab eingeben

[haentschman]

Moin...

Zitat:

Ist das normal, dass er nach der Eingabe und dem ButtonClick die gesamte Tabelle mit den Datensätzen zb. 1-10 nochmals als neue Tabelle hinter 10 mit 1-10 und den neuen Werten wiederholt?

Das liegt am RefreshItems. Hier wird die gesamte ListView neu aufgebaut. Das fehlt nur ein beherztes lvProducts.Items.Clear ...nicht nur CLEAR.

Zitat:

es war schon spät und den Tag über wuseln meine beiden Enkel herum. Meine Konzentration war nicht mehr gegeben.

...denkbar schlechte Voraussetzungen zum Programmieren.

[EdAdvokat]

Nach all den Mühen versuche ich nun eine Navigation für die Datentabelle zu implementieren. Geht das überhaupt in dem Programm, ähnlich dem DBNavigator. Als Pilotlösung habe ich einen Next-Button auf das Formular gelegt mit folgender Procedure:

Delphi-Quellcode:

procedure TMainFrm.btnNextClick(Sender: TObject);
begin
  qryMain.Close;
  qryMain.SQL.Clear;
  qryMain.SQL.Text:='SELECT * FROM WARENVERKAUF1';
  qryMain.Open();
  If not qryMain.IsEmpty then
   qryMain.Active:=true;

   qryMain.Next;
end;

Sicher ist manches doppelt gemoppelt doch auch so tut sich wieder mal überhaupt nichts. keine Fehlermeldung aber der Datensatz springt nicht zum nächten.
Zuvor hatte ich trotz Query.open die Fehlermeldung "Operation ist bei geschlossener Datenmenge nicht möglich" obwohl ich query.open und auch query.active:=true; gesetzt hatte.
Geht das was ich will überhaupt in der vorliegenden Konstalation?

[p80286]

Was willst Du erreichen?
Mit der bisher besprochenen Abfrage stehen Dir die abgefragten Daten zur Verfügung. Wenn Du in dieser Menge (Listview?) navigieren willst, mußt Du dies in der Listview machen und nicht durch eine neue Abfrage.

Zu Deiner Abfrage:
durch das .Open wird die Abfrage durchgeführt (.Open entspricht .Aktive:=True; .Close entspricht .Aktive:=False )
das .Aktve:=True; ist somit überflüssig.
Du holst die abgefragten Daten nicht ab (MyStringValue:=Query.FieldbyName('Feldname').asstring; ).
Das .Next setzt zwar den Zeiger auf den zweiten Wert, aber das ist vollkommen unnütz, da Du mit den Daten nichts anfängst.

Gruß
K-H

[Jumpy]

Hab mir dein Projekt nicht angeguckt, kann also nicht so konkret antworten wie p80286, aber wenn ich mir in einer Datenmenge den nächsten Datensatz anzeigen lassen möchte, muss ich nicht die jedesmal die Datenmenge schließen und neu öffnen (das ist im Gegenteil sogar kontraproduktiv). Es genügt ein .Next:

Delphi-Quellcode:

procedure TMainFrm.btnNextClick(Sender: TObject);
begin
  if not qryMain.EOF then //ggf. unnötig
    qryMain.Next;
  //Dann was du mit den Daten machen willst, gehe ich nach obigen Posts, sowas?:
  RefreshItems(qryMain.FieldByName('ID').AsString,
               qryMain.FieldByName('KDNR').AsString,
               qryMain.FieldByName('Name').AsString,
               //...
               );
end;