Hast Du denn IndexName schon ausprobiert, so wie ich schrieb? Und wenn ja, was funktioniert nicht? Welche Fehlermeldung erscheint?
In einem korrekt funktionierenden Programm von mir nutze ich dieses:
Delphi-Quellcode:
procedure TfmMain.dbGridTitleClick(Column: TColumn);
begin
try
case Column.Field.FieldNo
of
1 : tb.IndexFieldNames := '
sender,datum,zeit';
2 : tb.IndexFieldNames := '
zeit,datum,sender';
3 : tb.IndexFieldNames := '
datum,zeit,sender';
4 : tb.IndexFieldNames := '
sendung,sender,datum,zeit';
5 : tb.IndexFieldNames := '
kategorie,datum,zeit,sender';
6 : tb.IndexFieldNames := '
beschreibung,sender,datum,zeit';
7 : tb.IndexFieldNames := '
id';
else
tb.IndexFieldNames := '
sender,datum,zeit';
end;
except
on e :
exception do ShowMessage(e.
Message);
end;
end;
tb = TAdoTable
In diesem Fall müssen bei IndexFieldNames die Felder durch Komma getrennt angegeben werden, nach denen sortiert werden soll. Da ich das immer problemlos bei geöffneter Tabelle mache, könntest Du ja eventuell mal das Schließen der Tabelle weglassen. Es ist halt überflüssig und kostet nur Zeit.
Die Hilfe zu Delphi schreibt hierzu:
Zitat:
Die Eigenschaft IndexFieldNames listet die Felder auf, die als Index verwendet werden sollen.
Delphi-Syntax:
property IndexFieldNames: string;
C++ Syntax:
__property AnsiString IndexFieldNames = {read=GetIndexFieldNames, write=SetIndexFieldNames}
Beschreibung
Verwenden Sie IndexFieldNames als alternative Methode zum Festlegen des Index für eine Client-Datenmenge. Geben Sie den Namen jedes Feldes an, nach dem die Datenmenge indexiert werden soll. Die einzelnen Namen werden durch ein Semikolon getrennt. Die Reihenfolge der Feldnamen wird im Index berücksichtigt.
Mit IndexFieldNames hinzugefügte Indizes unterstützen keine Gruppierungen oder gewarteten Aggregate.
Tipp: Mit IndexFieldNames können Sie zur Laufzeit Sortierreihenfolgen erstellen.
Hinweis: Die Eigenschaften IndexFieldNames und IndexName schließen sich gegenseitig aus. Durch Einstellen der einen Eigenschaft wird die andere zurückgesetzt.
sowie
Zitat:
Die Eigenschaft IndexName bezeichnet einen Index der Client-Datenmenge.
Delphi-Syntax:
property IndexName: string;
C++ Syntax:
__property AnsiString IndexName = {read=GetIndexName, write=SetIndexName};
Beschreibung
Mit IndexName können Sie einen anderen Index für eine Client-Datenmenge angeben. Wenn die Eigenschaft keinen Wert enthält, basiert die Sortierfolge der Datenmenge auf der Eigenschaft IndexFieldNames oder der Standardsortierung im Datenpaket. Die Standardsortierung richtet sich nach dem vordefinierten Index (DEFAULT_ORDER).
Enthält IndexName einen gültigen Indexnamen, werden die Datensätze basierend auf diesem Index sortiert.
Hinweis: IndexFieldNames und IndexName schließen sich gegenseitig aus. Durch Einstellen der einen Eigenschaft wird die andere zurückgesetzt.
Zitat:
Übrigens: kann man auch ein double Feld nach der Größe der Zahlen sortieren? Wenn ja wie?
Indem man 'nen Index drauf legt und den Namen des Index bei IndexName angibt.
PS:
Fehlermeldungen der
ADO-Schnittstelle sind nicht immer zwingend aussagefähig und geben nicht zwingend einen Hinweis auf den tatsächlich aufgetretenen Fehler und der tritt meist nicht dort auf, wo die Ausnahme geworfen wird. ( <-- sakastisch formulierte Praxiserfahrung)
Also folgendes Versuchen:
Umsteigen auf IndexName und dort den Namen des zu nutzenden Index angeben.
Zuerst ohne vorheriges Schließen und anschließendes Öffnen der Tabelle. Nur wenn es dann nicht geht mit Close und Open arbeiten.
Geht's damit nicht, was passiert, wenn nur ein Close und ein Open aufeinander folgen, ohne das Setzen des Index?
Geht das alles nicht, dann auf IndexFieldNames ausweichen. Schreibweise der Feldnamen eventuell so, wie in der Datenbank, also Groß-/Kleinschreibung beachten (auch wenn's meiner Meinung nach irrelevant sein sollte).
IndexFieldNames zuerst bei geöffneter Tabelle setzen, nur wenn das scheitert, mit Schließen und Öffnen probieren.
Ist die TAdoTable über eine TDataSource mit irgendwelchen Komponenten zur Anzeige... verbunden? Wenn ja, diese Verbindung probeweise entfernen und erneut probieren.
Der Fehler "Die Argumente sind vom falschen Typ, liegen außerhalb des Gültigkeitsbereiches oder sind miteinander unvereinbar" deutet etwas globalgalaktisch auf ein dateninduziertes Problem hin, der Fehler muss letztlich nicht zwingend in Deinen drei Zeilen Quelltext liegen, sondern kann überall dort auftreten, wo beim Öffnen oder Scrollen (was beim Öffnen automatisch passiert) etwas mit den Daten (z. B. das Anzeigen) geschieht. Ggfls. auch mal alle Ereignisroutinen der TADOTable (im Objektinspektor) entfernen, sofern vorhanden.
Läßt sich die Tabelle im Objektinspektor öffnen? Wenn ja, im Objektinspektor mal IndexName bzw. IndexFieldNames wie gewünscht befüllen. Klappt das dort?