Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report
Message
 
 
À
26/05/2009 05:29:27
Muthu Vel
Sty Company
Inde
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
Re: Report
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01401936
Message ID:
01401941
Vues:
70
Make sure that address.lbx does not have centac.dbf" in its DE and fields in it does not use an alias prefix.
On unrelated note, VFP has DO CASE statement for multiple choices
DO CASE
CASE thisform.optiongroup1.option1.value = 1
  ...
CASE thisform.optiongroup1.option2.value = 1
  ...
CASE thisform.optiongroup1.option3.value = 1
  ...
OTHERWISE
  ...
ENDCASE
>I have create a "centac.dbf" with 10 fields and I havecreate a "print.scx" and I have create a "List.frx" and I have create a "Address.lbx". In the print.scx I put one optiongroup having three option button namely 1. dd 2. List 3. Address and one combobox having Bankname list and two text boxes namely 1. txtfrom 2. txtto and two command button namely 1. cmprint 2.cmdexit.
>
>1.Now i am select first option "dd" and choose any one of the bank in combobox list and click print command button the result is correct what i am expectecd.
> 2.Again i choose second option "List" and entered the starting number and end number in txtfrom and txtto text boxes and click command button the result is correct what i am expected.
>
>3.After i am choose third option "Address" and entered the starting number and end number in txtfrom and txtto text boxes and click command button the result is not correct what i am expected i.e all the records has been printed but I want to print only the records will print what i have entered the numbers between txtfrom and txtto.
>
>How to correct the problems?
>
>
>The code is below
>
>use "D:\cen2009-10\centac.dbf"
>
>
>LOCAL lcfrom, lcto
> lcfrom = thisform.txtfrom.value
> lcto = thisform.txtto.value
>
>if thisform.optiongroup1.option1.value = 1
> select * from centac where bank = thisform.combo1.value;
> order by bank;
> into cursor temp1
> report form "D:\cen2009-10\dd.frx" PREVIEW
> endif
> clear
>
> if thisform.optiongroup1.option2.value = 1
>LOCAL lcfrom, lcto
> lcfrom = thisform.txtfrom.value
>lcto = thisform.txtto.value
>select * from centac where Appno between lcfrom and lcto;
> ORDER by appno;
> into cursor temp
> report form "D:\cen2009-10\List.frx" preview
> endif
> clear
>
> if thisform.optiongroup1.option3.value = 1
> select * from centac where Appno between lcfrom and lcto;
> ORDER by appno;
> into cursor temp3
> Label form "D:\cen2009-10\address.lbx" TO printer
> endif
> clear
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform