Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
A table is browsing again and again
Message
From
15/03/2006 17:40:27
 
 
To
14/03/2006 12:32:57
Chandan Chakraborty
Bangiya Gramin Vikash Bank
Raiganj, India
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 6
OS:
Windows '98
Network:
Windows 98
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01104264
Message ID:
01104734
Views:
12
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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform