Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Delete ,append
Message
From
02/05/2005 02:58:56
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Delete ,append
Environment versions
Visual FoxPro:
VFP 7
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01010089
Message ID:
01010089
Views:
64
hi all.
i try via code under to update my data, via temp.table ,
but if i remove any item,or update any item , and i call it again isee the items. increase.
and i get error message file must be opend exclusively, som times
at delete--->pack ---->infinit loop
 IF USED('table1')
  SELECT table1
ELSE
  SELECT 0
  USE table1 AGAIN 
ENDIF
  SELECT * FROM table1 WHERE dvno==THISFORM.TEXT2.VALUE  AND table1.dat=thisform.text5.value  INTO ARRAY laResults

 scan
   DELETE FOR dvno==THISFORM.TEXT2.VALUE  AND    table1.dat==thisform.text5.value 
       PACK          &&infinet loop
       GO TOP
endscan

Append From Dbf('temp') 
SCAN  FOR   table1.dvno==THISFORM.TEXT2.VALUE  AND table1.dat==thisform.text5.value 
replace dat WITH thisform.text5.value
replace dvno WITH thisform.text2.value
replace peri WITH thisform.combo2.value
endscan

DELETE ALL  IN temp
thisform.grid1.Refresh()
thanks.
Next
Reply
Map
View

Click here to load this message in the networking platform