Hallo nochmal,
habe in der Zwischenzeit noch gesucht.
Der Tabellenwechsel: Index der aktiven Table löschen, aktive Tabelle schließen (Table.Close), neue Tabelle öffnen.
Delphi-Quellcode:
procedure TfrmMain.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
if TreeView.Selected.IsFirstNode then exit
else
begin
SelectTable(TreeView.Selected.Text);
Table.Close; // active Table schließen
Table.TableName := TreeView.Selected.Text; // neue TabellenName
Table.Open; <================== Hier liegt der Fehler
iRecordCount.Caption := IntToStr(Table.RecordCount); // Datensätze zählen und anzeigen
end;
end;
Da muß doch noch ein Index der alten Tabelle sein, der in der neuen Tabelle nicht vorhanden ist.
Wie kriege ich den da weg, was muß ich da machen?
Fritz