Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Multiuser and grids
Message
De
11/02/1997 09:27:08
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Multiuser and grids
Divers
Thread ID:
00020013
Message ID:
00020013
Vues:
79
Is this a solution with muliusers and grid.
To avoid conflict in updates??


PUBLIC mindbf,mindbf1,mindbf2
=RAND(-1)

mindbf='per'+ALLTRIM(STR(RAND()*1000))
mindbf1='per'+ALLTRIM(STR(RAND()*1000))
mindbf2='per'+ALLTRIM(STR(RAND()*1000))

SELECT *;
FROM hovedlønn;
INTO TABLE &mindbf

SELECT =mindbf
APPEND FROM korrdag


SELECT ansnavn,ansattnumm,avdeling,job,;
dato1,skift,lønnsartna,;
lønnsartnu,;
SUM(Timer) AS Timer;
FROM &mindbf;
GROUP BY ansattnumm,dato1,avdeling,job,lønnsartnu;
ORDER BY ansattnumm,dato1,avdeling,job,lønnsartnu;
INTO TABLE &mindbf1
INDEX ON ansnavn TAG ansnavn
SET ORDER TO ansnavn
GO TOP



IF THISFORM.ans.value="*"
THISFORM.Grid1.RecordSource=mindbf1
ELSE
THISFORM.Grid1.RecordSource=mindbf2
ENDIF


SELECT *;
FROM &mindbf1;
WHERE VAL(THISFORM.ans.value)=ansattnumm;
INTO TABLE &mindbf2

THISFORM.Grid1.ColumnCount=9
THISFORM.Grid1.FontSize=8
......

Best regards
Per Simmersholm
Répondre
Fil
Voir

Click here to load this message in the networking platform