Very Computer

If the "INDEX" command had a "descending" keyword (i.e. INDEX maintained "MyTable"
on "First Key" Descending) it would be a piece of cake, but it doesn't.  <sigh>

Anyone else have a suggestion?

Jim

This is for Pdox4.0DOS

I could use a Locate Next in a While loop until retval is false, but
thats a bit sluggish..

Any Ideas ???

Gary S.
**

PC Specialist
BASF Coatings + Inks Ltd
SLINFOLD
West Sussex
RH13 7SH

UNITED KINGDOM

Quote:

>Anybody know of any code that will quickly find the last record in a
>field, I have a table with 10,000 records and the first three fields
>are keyed.  I need some code that will locate the first record with
>the required value in the first keyed field and then QUICKLY find the
>last record with the same value in the same keyed field..

>This is for Pdox4.0DOS

>I could use a Locate Next in a While loop until retval is false, but
>thats a bit sluggish..

>Any Ideas ???

moveto "table"
moveto [field]
Locate Indexorder ??
If retval then
  Locate Indexorder Last
endif

This Should work...

The Night Diver

locate "string"
if not retval then
  ; handle it
  return false
else
  while []="string"
    if atlast() then
      return true
    else
      down
    endif
  endwhile
  up
  return true
endif

--
 W A N T E D   P O S T E R    |\       _,,,---,,_          W A N T E D    

   alias Wayne McDougall     |,4-  ) )-,_..;\ (  `'-'
  D E A D   OR   A L I V E  '---''(_/--'  `-'\_)     D E A D   AND   A L I V E

LOCATE key.field.val
IF NOT retval THEN
   RETURN FALSE
ELSE
   WHILE (TRUE)
       SWITCH
           CASE [other field] = other.val    : RETURN TRUE
           CASE [key field] <> key.field.val : RETURN FALSE
           CASE ATLAST()                     : RETURN FALSE
           OTHERWISE                         : DOWN
       ENDSWITCH
   ENDWHILE
ENDIF

--
Steve Green - Diamond Software Group - Waldorf Maryland USA
CompuServe 71333.2362 - Prodigy TBMG62A -  I am a member of
Borland's TeamB Tech Support staff for PdoxDOS but I do not
represent Borland International in any official capacity.

Quote:>Have you tried ?
>moveto "table"
>moveto [field]
>Locate Indexorder ??
>If retval then
>  Locate Indexorder Last
>endif
>This Should work...
>The Night Diver

 But when you do the Locate Indexorder Last command, it justs drops
you to the end of the table, regardless of the value in the searched
field..  Seems a pointless command, much like issuing END..

Maybe something is not set up correctly in my system that is
preventing that command to work correctly..

Gary S.

**

PC Specialist
BASF Coatings + Inks Ltd
SLINFOLD
West Sussex
RH13 7SH

UNITED KINGDOM