Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
New way
Message
De
27/11/2004 15:07:59
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
 
 
À
27/11/2004 14:52:29
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00965120
Message ID:
00965135
Vues:
10
I don't know. Perhaps nothing is deleted because no record fulfills the condition.

Also, make sure you have SET DELETED ON.

>hi,
>thank you,but when i click mysave command it is save the old data and new data,i mean nothing delete,and i need just new data when i query again.
>
>select 1
>use mstr
>delete for BILLNO=THISFORM.TEXT1.VALUE  .AND. DATEIN=THISFORM.TEXT2.VALUE
>
>  Append From Dbf('temp') for thisform.text1.value>0
>  replace w1 with thisform.text14.value
>  replace w2 with thisform.text16.value
>  With thisform.grid1
>   .recordsource = ''
>   Select temp
>   DELETE ALL
>   .recordsource = 'temp'
>   thisform.text1.SetFocus
>   thisform.refresh
>  endwith
>  ******************
>  With thisform.grid1
>   .recordsource = ''
>   Select temp
>  * Zap
>   .recordsource = 'grid1'
>   thisform.text1.SetFocus
>   thisform.refresh
>  endwith
>  **********************
>
>  ********************************************
>  thisform.text1.value=0
>  thisform.text2.value=ctod("  /  /  ")
>  thisform.text3.value=space(10)
>  thisform.text4.value=space(10)
>  thisform.text5.value=space(10)
>  thisform.text6.value=0
>  thisform.text7.value=0
>  thisform.text8.value=0
>  thisform.text10.value=0
>
>thanks.
>best regards
>m.qasem
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform