Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
A table is browsing again and again
Message
De
15/03/2006 17:40:27
 
 
À
14/03/2006 12:32:57
Chandan Chakraborty
Bangiya Gramin Vikash Bank
Raiganj, Inde
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 6
OS:
Windows '98
Network:
Windows 98
Database:
Visual FoxPro
Divers
Thread ID:
01104264
Message ID:
01104734
Vues:
11
How is this PRG started? Does an event start it? What event?



>Dear Experts I have written a prg in a form to browse selected fields. And as per my intention it will browse once and after that the Messege box will apeear. Every thing is happening as per my chioce except browse. It is browsing again and again . That it is browsing at the first time and afer choosing "no" in messagebox it it browsing again and the message box also apprearing twice. Please help. here is the code:
>
>
>CLEA
>CLOSE ALL
>*!*	sele A
>*!*	use gh
>SET STATUS OFF
>SET TALK OFF
>SET SAFETY OFF
>set date british
>set century on
>USE UUU
>ZAP
>USE
>if thisFORM.COMMAND2.CLICK()
>thisform.command1.enabled=.t.
>lcAcno=space(15)
>lcSecuno=space(15)
>
>if thisform.combo1.value="ACNO"
>USE KKK
>
>lcAcno=thisform.acno2.value
>INSERT INTO KKK(NAME);
>VALUES(lcAcno)
>*lcSecuno=
>SELE security1.name,security1.ACNO,gh.TYPE,gh.secuno,gh.AMOUNT,gh.DUE_DATE ;
>FROM security1,gh WHERE security1.acno=GH.ACNO AND security1.acno=lcAcno INTO CURSOR TT
>COPY TO UUU
>
>BROW noedit noappend
>close all
>thisform.release()
>
>close all
>
>ELSE
>lcSecuno=thisform.acno2.value
>INSERT INTO KKK(NAME);
>VALUES(lcsecuno)
>SELE security1.name,security1.ACNO,gh.TYPE,gh.secuno,gh.AMOUNT,gh.DUE_DATE ;
>FROM security1,gh WHERE security1.acno=GH.ACNO AND gh.secuno=lcSecuno INTO CURSOR TT
>COPY TO UUU
>
>BROW noedit noappend
>ENDIF
>*endif
>thisform.release()
>
>close all
>
>ans=0
>ans=messagebox("Want to Print..?",4+0+16," Hello")
>
>if ans=6
>close all
>thisform.release()
>THISFORM.HIDE
>do INTPRINT22
>else
>do form general name juform linked
>endif
>endif
>
>CLOSE ALL
>
>
>
>In INTPRINT22.prg I have no browsing command.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform