先進好

我在 DatabaseDeskTop 中可以直接用某一欄位建立 SecondaryIndex (沒有Primary key 的情形下)

但在 runtime

tbNew.FieldDefs.Add('D', ftString, 10, False);
tbNew.FieldDefs.Add('Balance', ftInteger, 0, False);
tbNew.CreateTable;

tbNew.IndexDefs.Add('IObyD', 'D', []);

卻在 IndexDefs.Add 後無法建立出索引檔

請問何故，漏了什麼嗎? 謝謝指教

tbNew.FieldDefs.Add('D', ftString, 10, False);
tbNew.FieldDefs.Add('Balance', ftInteger, 0, False);

若把

tbNew.IndexDefs.Add('IObyD', 'D', []);

放在
tbNew.CreateTable;

之前則會出現

Table is not indexed

Table does not exist

請問這是 ??

tbNew.FieldDefs.Add('D', ftString, 10, False);
tbNew.FieldDefs.Add('Balance', ftInteger, 0, False);

若把

tbNew.IndexDefs.Add('IObyD', 'D', []);

放在
tbNew.CreateTable;

之前則會出現

Table is not indexed

Table does not exist

請問這是 ??

try try 看

tbNew.FieldDefs.add('s0',ftautoinc,0,false);

tbNew.FieldDefs.add('s1',ftinteger,0,false);

tbNew.FieldDefs.add('s2',ftinteger,0,false);
tbNew.FieldDefs.add('s3r',ftstring,12,false);
tbNew.IndexDefs.Clear();

//primary index
tbNew.IndexDefs.Add('', 's0', [ixPrimary]);
// secondary index
tbNew.IndexDefs.Add('Names1', 's1',[ixCaseInsensitive]);

tbNew.IndexDefs.Add('Names2', 's2',[ixDescending]);

tbNew.IndexDefs.Add('Names3', 's3;s1,[ixCaseInsensitive]);
tbNew.CreateTable;