I create a cursor for a grid along with indexes for each field of the cursor where code is in the click event of the grid to sort by that column.

The following is the code

lcRecordSource = this.grid.recordsource
this.grid.recordsource = ''

select ;
...
from ....
into cursor &lcRecordSource readwrite


Select (lcRecordSource)

Afields(aFlds,lcRecordSource)


For ix = 1 To This.Parent.grid.ColumnCount
	lcIx = '"FLD'+Alltrim(Str(ix))+'"'
	lcField = Alltrim(aFlds(ix,1))
	Index On &lcField Tag &lcIx Additive
Endfor

this.grid.recordsource = lcRecordSource

this.grid.refresh

On some computers everthing works correctly, how ever on some I am getting the folling error;

Program Error Message Number 1718
Error Message: File c:\docume~~\user~~~\temp\00002x00002.tmp is readonly  
Line Number of Error: 1718

I am at my wits end trying to figure out what is wrong. The index must be created, because by clicking on the grid headers, the columns are sorted properly etc.

And why only on some workstations is this error occurring?

Thanks in advance