Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Zap/Dele All - no packing
Message
From
02/03/2016 04:17:36
 
 
To
29/02/2016 20:53:33
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01632301
Message ID:
01632412
Views:
79
look at the msgbox changes to show exactly in which work area you are in your exe
the rest should fix your problem with the code mostly aligned to the previous state.
As others have written, other code variants would be faster, tighter and more succinct.
SET SAFETY OFF
*SET EXCLUSIVE on
***USE bookings IN 0 EXCLUSIVE &&I have tried it with and without the exclusive clause. Makes no difference.
***if you have some table previously selected, it is still active and you pack the wong table
local lnSel
lnSel = select()
USE bookings EXCLUSIVE in select("bookings") 
select bookings
DELETE ALL
PACK
IF ISEXCLUSIVE( ) &&Just to check if there is exclusivity. returns .f. each time - no matter what I change around in the code.
 MESSAGEBOX(dbf() + ' Table opened exclusive in ' + alias())
ELSE
  MESSAGEBOX(dbf() + ' Not opened exclusively in ' + alias())
ENDIF
*SET EXCLUSIVE OFF
SET SAFETY ON
*** shared opening or close needed???
USE bookings shared in select("bookings") 
select m.lnSel
Previous
Reply
Map
View

Click here to load this message in the networking platform