Make sure the invoice table index is currently set to in_code
Then
Scan
Select invoice
If seek(lncustcode,"invoice")
Do while ln_code=lncustcode
Do some code
Skip
Enddo
Endif
Select sometable
endscan
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of [EMAIL PROTECTED]
Sent: 14 September 2006 14:59
To: [EMAIL PROTECTED]
Subject: Using a seek instead of a locate
How can I duplicate the following code using the seek command:
SCAN
SELECT Invoice
LOCATE FOR in_code = lnCustCode
DO WHILE FOUND()
do some code
CONTINUE
ENDDO
SELECT sometable
ENDSCAN
The is extremely slow as this codes is already in another loop and
therefore a locate for the whole table is execute each time.
Thanks in advance.
-------------------------------------------
For super low premiums, click here http://www.webmail.co.za/dd.pwm
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
