Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Get all employee
Message
De
09/02/2005 08:47:04
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Get all employee
Versions des environnements
Visual FoxPro:
VFP 5
Database:
Visual FoxPro
Divers
Thread ID:
00985090
Message ID:
00985090
Vues:
56
hi all
i write this code under to get result for one employee every time,
i need to get all employee,
 CLOSE ALL
set talk off
set echo off
SELECT 1
USE MSTR
LOCATE FOR NO=THISFORM.TEXT1.VALUE 
SELECT 1
USE MSTR
LOCATE FOR NO=THISFORM.TEXT1.VALUE 
if !found()
   =messagebox("ÑÞã ÇáãæÙÝ ÛíÑ ãæÌæÏ")
   thisform.command1.visible=.f.
   thisform.command2.visible=.f.

else
   thisform.command1.visible=.t.
   thisform.command2.visible=.t.
   M.DAT=DAT

 SELECT 2
   USE TAX1
     M.NETTOT=NETTOT
       m.s=monthnam
   LOCATE FOR NO=THISFORM.TEXT1.VALUE 
    IF FOUND()
                  set filter to no=THISFORM.TEXT1.VALUE .and.             montno>=THISFORM.TEXT2.VALUE .AND. MONTNO<=THISFORM.TEXT3.VALUE
DO WHILE .T. .and. no=THISFORM.TEXT1.VALUE 
SKIP
M.NETTOT=NETTOT
m.s=monthnam
  IF EOF()
    EXIT
  ENDIF
ENDDO

endif
report form coptax1 preview
endif
thanks.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform