select * .. from ... into cursor curTemp zap in (this.grid.RecordSource) insert into (this.grid.RecordSource) select * from curTempThis way you need to create your indexes only once and you may do it in the form's Init.
> >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 > >>
>Program Error Message Number 1718 >Error Message: File c:\docume~~\user~~~\temp\00002x00002.tmp is readonly >Line Number of Error: 1718 >>