🚀 go-pugleaf

Hi!

I don't know why you resive the error message, but if you only want to sort
the table you can do this instead:

Place a TQuery and a TDatasource component and just :

          Table1->Close();
          Table1->SQL->Clear();
          Table1->SQL->Add("SELECT * FROM table ORDER BY term_no";
          Table1->ExecSQL();
          Table1->Active = true;


/Ola



"G�khan �ATALKAYA" wrote:

> Hi;
>
> I have created an index on a paradox 7.0 table named teminat_tbl with the
> following command.
>
> create index index1 on teminat_tbl (term_no)
>
> And I have the following code to sort the table to the term_no
>
> Table1->Active = false;
>
> Table1->IndexDefs->Update();
>
> for (int i = 0; i < Table1->IndexDefs->Count; i++)
>   if (Table1->IndexDefs->Items[i]->Fields == AnsiString("TERM_NO"))
>   {
>         Table1->IndexName = Table1->IndexDefs->Items[i]->Name;
>     break;
>   }
>
> Table1->Active = true;
>
> Everything is OK in Compile Time But i have taken an error message in run
> time like
>
> Project raised exception class EDBEngine Error with message 'index is read
> only'. Process stop. Use Step or Run to Continue.
>
> Do yu think what causes the problem, and hhow can i overcome it?
>
> Thank you.
>
> --
> G�khan �ATALKAYA