Hallo alle miteinander...
ich bin mit meinem Latein am Ende...
2 Tage herumprobieren...Hilfe...Forum lesen...etc.
folgendes Problem:
Sekundärindizies erstellen--- > Fehlermeldung bei CreateTable
Invalid index/ tag name Index: IndTermin
Inzwischen habe ich herausgefunden, wenn ich in den Optionen der Indizies irgend eine Option eintrage z.B. [ixUnique] läuft die Prozedur problemlos durch und alle
Indizies sind erstellt....ich will aber keine Optionen sondern nur einen gewarteten Index
Delphi-Quellcode:
procedure TabWartungListeErzeugen;
var
Tabelle: TTable;
begin
with Tabelle do
begin
Tabelle:= TTable.Create(nil);
SessionName:= Form1.TabKunden.SessionName;
TableType := ttParadox;
TableName := WartungLName;
with FieldDefs do
begin
Clear;
Add('Nummer', ftString, 30);
Add('Nutzer', ftString, 30);
Add('Standort', ftstring, 30);
Add('Anlage', ftString, 30);
Add('Falligkeit', ftDate);
Add('Termin', ftDate);
Add('Erledigt', ftBoolean);
Add('IO', ftBoolean);
Add('Erledigung', ftDate);
Add('Monteur', ftMemo, 30);
end;
with IndexDefs do
begin
Clear;
Add('' , 'Nummer;Nutzer;Standort;Anlage;Falligkeit' , [ixPrimary]);
Add('IndNummer' , 'Nummer',[]);
Add('IndStandort' , 'Standort' , []);
Add('IndAnlage' , 'Anlage' , []);
Add('IndFalligkeit' , 'Falligkeit' , []);
Add('IndTermin' , 'Termin' , []);
end;
CreateTable;
end;
Tabelle.Free;
end;
Hilfe....Danke