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.refreshOn 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: 1718I 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.