Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Why doesn't this DELETE ALL WHILE work?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00823822
Message ID:
00823834
Vues:
22
Will it work this way?
IF SEEK( m.obligor+m.obligation+m.unit, "DRAW", "obr_obn_un")
   wait wind "FOUND"
   SELECT draw
   idel=0
   scan while draw.obligor == m.obligor .AND. ;
		draw.obligation == m.obligation .AND. ;
		draw.unit == m.unit
     delete
     idel=idel+1
  endscan
  ?idel
ENDIF
>The following code does not delete from the DRAW table the records where draw.obligor == m.obligor .AND. draw.obligation == m.obligation .AND. draw.unit == m.unit. After the SEEK the record pointer is correctly on the first matching record. Then after the DELETE ALL WHILE is executed the record pointer is at the first record of the index and the matching records are not deleted.
>
>
>IF SEEK( m.obligor+m.obligation+m.unit, "DRAW", "obr_obn_un")
> SELECT draw
> DELETE ALL WHILE draw.obligor == m.obligor .AND. ;
> draw.obligation == m.obligation .AND. ;
> draw.unit == m.unit
>ENDIF
>
>Thanks
>
>Brenda
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform