Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Show at mygrid
Message
De
11/03/2005 12:11:52
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Show at mygrid
Versions des environnements
Visual FoxPro:
VFP 5
Database:
Visual FoxPro
Divers
Thread ID:
00994890
Message ID:
00994890
Vues:
54
hi all,

i try to insert some data at mygrid1, via this code under.
fields E,S,F at the middle of mytable,
i cant see the data at mygrid after i insert the data,but i can see it if i make brows to the table or if get all filed at mygrid, i need to see the 3 fields only at mygrid with data,
any help
if thisform.text4.value=space(10)
  thisform.text4.setfocus
  =MESSAGEBOX(" you must enter")
  thisform.grid1.visible=.f.
else
  thisform.grid1.visible=.t.
  LOCATE FOR UPPER(E)=UPPER(TRIM(THISFORM.TEXT4.VALUE))
IF !FOUND()
 APPEN BLANK 
 REPLACE E WITH THISFORM.TEXT4.VALUE
 REPLACE COLUMN14 WITH THISFORM.TEXT4.VALUE
 REPLACE F WITH THISFORM.TEXT5.VALUE
 REPLACE S WITH THISFORM.TEXT6.VALUE
 REPLACE FLAG WITH THISFORM.TEXT2.VALUE
ELSE
 REPLACE E WITH THISFORM.TEXT4.VALUE
 REPLACE COLUMN14 WITH THISFORM.TEXT4.VALUE
 REPLACE F WITH THISFORM.TEXT5.VALUE
 REPLACE S WITH THISFORM.TEXT6.VALUE
 REPLACE FLAG WITH THISFORM.TEXT2.VALUE
ENDIF
endif
thisform.Refresh
thanks
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform