Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Print via myform
Message
De
08/11/2004 16:05:18
 
 
À
08/11/2004 15:54:15
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 5
Divers
Thread ID:
00959007
Message ID:
00959354
Vues:
9
hi,
it works,
but still get all data from mytable mstr,

i must see at my repoert just 2 records only via my example,

the same code works via mygrid.
thisform.pageframe1.page2.grid1.Visible=.t.

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
 thisform.pageframe1.page1.grid2.Visible=.f.
 thisform.pageframe1.page2.grid1.setfocus()
best regards.
m.qasem
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform