>I query a network table to a local table. The local table is
>used to populate a list.
>
>For every record in the local table, I need to mark it's network
>copy so that no other users can access it.
>
>I have:
>

>** Get the alias of the local table
>cAlias = ALIAS()
>			
>** Set the index of the network table
>SET ORDER TO Id IN Resh
>			
>** Loop once for each local record
>SELECT (cAlias)
>SCAN
>
> ** Locate the network record
> SELECT Resh
> =SEEK(&cAlias..Id)
>				
> ** Store the batch id and user name to the network record
> REPLACE IN Resh BatchNo WITH .nBatchNo,;
>                 Used_By WITH oApp.cUserId;
>                 NEXT 1
>
>ENDSCAN
>

>
>The problem is that this is really slow.
>
>Anyone know how to speed this up?

Try this...

** Set the index of the network table
SET ORDER TO Id IN Resh
			
** grab these values to memvars because they're
** so much faster than properties.
LOCAL lnBatchNo, lcUserID
lnBatchNo = .nBatchNo
lcUserID = oApp.cUserID

** Loop once for each local record
SELECT (cAlias)
SET RELATION TO ID INTO Resh

REPLACE ALL ;
  BatchNo WITH m.lnBatchNo, ;
  Used_By WITH m.lcUserID ;
  IN Resh