Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
FILTER and GO
Message
From
11/02/2002 08:06:45
Lutz Scheffler (Online)
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
 
 
To
11/02/2002 07:50:29
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Miscellaneous
Thread ID:
00618202
Message ID:
00618241
Views:
8
Gregory,
I see the point.
So I started myself thinking, found some old code and linked together, so it looks like:
... &&something like DELETE; SET FILTER; SET ORDER, SKIP or even GO within range
llDel = DELETED() AND SET("DELETED")='ON'
llFil = !EMPTY(FILTER()) AND !EVALUATE(FILTER())

lcTagFilter = ''
IF !ISBLANK(ORDER()) THEN
 =ATAGINFO(laTags)
 lcTagFilter = laTags(ASCAN(laTags,TAG(),1,0,1,15),4)
ENDIF &&!ISBLANK(ORDER())
llOrd = !EMPTY(lcTagFilter) AND !EVAL(lcTagFilter)

IF llDel OR llFil OR llOrd THEN
 IF !EOF() THEN
  SKIP
  IF !BOF() THEN
   SKIP -1
  ENDIF
 ELSE
  IF !BOF() THEN
   SKIP -1
   IF !EOF() THEN
    SKIP
   ENDIF
  ENDIF
 ENDIF
ENDIF
This is the failsafe way to leave a record.

Agnes
>Agnes,
>
>What happens if you have both a filter and a filtered order set ?
>
>(I have not considered the grid having a LinkMaster)
>
>may be the best would be
>
>IF BETWEEN(m.lnOldRecNo,1,RECCOUNT()) THEN
>    GO (m.lnOldRecNo)
>
>   skip
>   if( !eof() )
>      skip -1
>   endif
>endif
>
>
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Previous
Reply
Map
View

Click here to load this message in the networking platform