What I was struggling with is using the SELECT [view] correctly. When I
click the page tab I had put my SELECT on the INIT instead of the CLICK
EVENT... Problem solved...

Here are the three buttons with two text boxes ...it works pretty good
[cSearchStr]  FIRST   NEXT   COUNT  [nMatch]

* first
cSearchStr = UPPER(ALLTRIM(cSearchStr))
IF cSearchStr > ' '
  GOTO TOP
  LOCATE FOR cSearchStr $ movbyloc.title
  THISFORM.PAGEFRAME1.PAGE4.GRID1.SETFOCUS()
  THISFORM.PAGEFRAME1.PAGE4.REFRESH
ENDIF  

*next
cSearchStr = UPPER(ALLTRIM(cSearchStr))
IF NOT EOF()
  SKIP
  nCurRec = RECNO()
  DO WHILE NOT (cSearchStr $ songsbyloca.title)
    IF NOT EOF()
      SKIP
    ELSE
      WAIT WINDOW "No more matches" NOWAIT
      EXIT
    ENDIF   
  ENDDO  
ENDIF
THISFORM.PAGEFRAME1.PAGE3.GRID1.SETFOCUS()
THISFORM.REFRESH

* count
GOTO TOP
nMatch = 0
nCurRec = RECNO()
cSearchStr = UPPER(ALLTRIM(cSearchStr))
SCAN
  IF (cSearchStr $ songsbyloca.title)
    nMatch = nMatch + 1
    IF nMatch = 1
      nCurRec = RECNO()
    ENDIF  
  ENDIF
ENDSCAN  
IF nCurRec > 0
  GOTO nCurRec
ENDIF  
THISFORM.PAGEFRAME1.PAGE3.GRID1.SETFOCUS()
THISFORM.PAGEFRAME1.PAGE3.REFRESH 


-----Original Message-----
From: Alan Bourke [mailto:alanpbou...@fastmail.fm] 
Sent: Saturday, February 20, 2010 3:38 AM
To: profox@leafe.com; profoxt...@leafe.com
Subject: Re: Rookie needs next step

Where are the search buttons exactly Gary ?

--
  Alan Bourke
  alanpbourke (at) fastmail (dot) fm






_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: 
http://leafe.com/archives/byMID/profox/26816738c4824c15832ae18983f79...@livingroom
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to