Hallo !<br>
<br>
Ich habe volgendes Problem:<br>
Wenn ich in der Tabelle MyTAB z.B. 10 Einträge habe wird immer nur der erste Datensatz berechnet, d.h. er durchläuft die äußere Schleife nur einmal. Wieso ? Das verstehe ich nicht !<br>
Ich benutze wie gesagt Delphi 5 und Access 2000.<br>
<br>
Andreas<br>
<br>
Query := TQuery.Create(self);<br>
Query.DatabaseName := 'MyDB';<br>
<br>
Table := TTable.Create(self);<br>
Table.DatabaseName := 'MyDB';<br>
Table.TableName := 'MyTAB';<br>
Table.Filtered := false;<br>
Table.Open;<br>
Table.First;<br>
<br>
while not Table.Eof do<br>
begin<br>
Query.SQL.Clear;<br>
Query.SQL.Add('Select * FROM MyTAB2 WHERE ......');<br>
Query.Open;<br>
Query.First;<br>
while not Query.Eof do<br>
begin<br>
//<br>
// Berechnungen<br>
//<br>
SQLForm.Query.Next;<br>
end;<br>
<br>
Table.Edit;<br>
Table.FieldByName('a').AsInteger := // Berechnung a<br>
Table.FieldByName('b').AsInteger := // Berechnung b<br>
Table.Post;<br>
<br>
Table.Next;<br>
end;<br>
<br>
Query.Close;<br>
Query.Free;<br>
Table.Close;<br>
Table.Free;<br>
<br>
Ich habe volgendes Problem:<br>
Wenn ich in der Tabelle MyTAB z.B. 10 Einträge habe wird immer nur der erste Datensatz berechnet, d.h. er durchläuft die äußere Schleife nur einmal. Wieso ? Das verstehe ich nicht !<br>
Ich benutze wie gesagt Delphi 5 und Access 2000.<br>
<br>
Andreas<br>
<br>
Query := TQuery.Create(self);<br>
Query.DatabaseName := 'MyDB';<br>
<br>
Table := TTable.Create(self);<br>
Table.DatabaseName := 'MyDB';<br>
Table.TableName := 'MyTAB';<br>
Table.Filtered := false;<br>
Table.Open;<br>
Table.First;<br>
<br>
while not Table.Eof do<br>
begin<br>
Query.SQL.Clear;<br>
Query.SQL.Add('Select * FROM MyTAB2 WHERE ......');<br>
Query.Open;<br>
Query.First;<br>
while not Query.Eof do<br>
begin<br>
//<br>
// Berechnungen<br>
//<br>
SQLForm.Query.Next;<br>
end;<br>
<br>
Table.Edit;<br>
Table.FieldByName('a').AsInteger := // Berechnung a<br>
Table.FieldByName('b').AsInteger := // Berechnung b<br>
Table.Post;<br>
<br>
Table.Next;<br>
end;<br>
<br>
Query.Close;<br>
Query.Free;<br>
Table.Close;<br>
Table.Free;<br>
Comment