Hi

I need modify primary index with the next code:

with tblCust do
 if IndexDefs.Items[0].Fields='RecordId' then   // Check index primary
 begin
   IndexDefs.Items[0].Fields:='Number';   // Change value for field Number
   AlterTable;  // This line is executed within error and nothing, no change index
 end;

The table only have a index primary.

Thanks
Roger

Roger,

<< I need modify primary index with the next code:

with tblCust do
 if IndexDefs.Items[0].Fields='RecordId' then   // Check index primary
 begin
   IndexDefs.Items[0].Fields:='Number';   // Change value for field Number
   AlterTable;  // This line is executed within error and nothing, no
change index
 end;

The table only have a index primary. >>

Are you using DBISAM 4.x ?  If so, then the above code should work provided
that you include these two lines at the beginning:

with tblCust do
 FieldDefs.Update;  <<<<<<<<<<
 IndexDefs.Update;  <<<<<<<<<<
 if IndexDefs.Items[0].Fields='RecordId' then   // Check index primary
 begin
   IndexDefs.Items[0].Fields:='Number';   // Change value for field Number
   AlterTable;  // This line is executed within error and nothing, no
change index
 end;

--
Tim Young
Elevate Software
www.elevatesoft.com