Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Print via myform
Message
De
07/11/2004 16:02:29
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Print via myform
Versions des environnements
Visual FoxPro:
VFP 5
Divers
Thread ID:
00959007
Message ID:
00959007
Vues:
57
hi all,

i want to print or view what i get at myform.mygrid via my code under.

via command (press to view or print)
with thisform.pageframe1.page2.Grid1
    .RecordsourceType = 4 && SQL
    .Columncount = -1
      .Recordsource = 'select innoumber,price,total,w1,w2,t1,t2,t3,datein,billno from mstr'+;
     '   where UPPER(inname) = UPPER(TRIM(thisform.pageframe1.page1.text1.Value)) and nam1 = thisform.pageframe1.page1.text4.Value and datein>=thisform.pageframe1.page1.text3.value .and. datein<=thisform.pageframe1.page1.text5.value '+;
     '   into cursor crsMyCursor'
     IF _TALLY > 0
Thisform.Pageframe1.ActivePage = 2
ELSE
MESSAGEBOX( [No Records match your crtieria] )
ENDIF

ENDWITH
thisform.pageframe1.page2.text1.value=thisform.pageframe1.page1.text1.Value
thisform.pageframe1.page2.text2.value=thisform.pageframe1.page1.text4.Value
sum innoumber to thisform.pageframe1.page2.text3.value
sum total to thisform.pageframe1.page2.text4.value
sum t1 to thisform.pageframe1.page2.text5.value
sum t2 to thisform.pageframe1.page2.text6.value
sum t3 to thisform.pageframe1.page2.text7.value
  
 count  to thisform.pageframe1.page2.text8.value
thanks.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform