Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Cursors
Message
 
À
08/10/2001 13:00:15
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00565563
Message ID:
00565598
Vues:
20
I tried it as following, the calc fields still came back empty.

create cursor (cCursor)( pp c(7), fname c(25), totpay n(8,2), fica n(8,2), retire_amt n(8,2), health_ins n(8,2), retiree_med n(8,2), unempins n(8,2), wrkcompins n(8,2), total_salary n(10,2))

select pp, fname, (totpay)/ppdays1 as tp1, (fica)/ppdays1 as fi1, (retire_amt)/ppdays1 as ra1, (health_ins)/ppdays1 as hi1, ;(retiree_med)/ppdays1 as rm1, (unempins)/ppdays1 as ui1, ;
(wrkcompins)/ppdays1 as wi1, (total_salary)/ppdays1, ssn ;
from payroll_tbl into cursor (cCursor2) where payroll_tbl.pp = a__gen10(1,1) order by fname

select pp, fname, (totpay)/ppdays2 as tp2, (fica)/ppdays2 as fi2, (retire_amt)/ppdays2 as ra2, (health_ins)/ppdays2 as hi2, ; (retiree_med)/ppdays2 as rm2, (unempins)/ppdays2 as ui2, ;
(wrkcompins)/ppdays2 as wi2, (total_salary)/ppdays2, ssn ;
from payroll_tbl into cursor (cCursor3) where payroll_tbl.pp = a__gen10(a_cells,1) order by fname

select (cCursor)
append from dbf((cCursor2))
append from dbf((cCursor3))
browse

Thanks
Nick Patel
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform