Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Multiuser and grids
Message
From
11/02/1997 09:27:08
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Multiuser and grids
Miscellaneous
Thread ID:
00020013
Message ID:
00020013
Views:
83
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
Reply
Map
View

Click here to load this message in the networking platform