Hey Gary - it looks to me like your doing pretty good with this stuff so far -
so, I wouldn't necessarily call you a rookie! Myself, for the most part - am
also self taught in VFP - although I have been with it starting w/Foxbase+,
many eons ago.
There is some decent help within the VFP online help - in regards to Object
Oriented programming - such as the basics of Methods & Classes. I honestly
don't do as much with Classes (like making my own - although I did use classes
made by others in my prior VFP job - and made new sub-classes based upon
existing ones) - although I do use the Methods constantly now - and I also
create my own Methods as part of a Form. I do that to use common code - like
making procedures in the old days - now that code is just inserted into Methods
that you create!
Hope that helps a little - if it wasn't stuff you already knew & worked with.
I also liked your Yoda references - my fine young Paduan!
L8r,
-K-
________________________________
From: profoxtech-boun...@leafe.com on behalf of Gary Jeurink
Sent: Sat 2/20/2010 11:07 AM
To: profoxt...@leafe.com
Subject: RE: Rookie needs next step
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
[excessive quoting removed by server]
_______________________________________________
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/289ea162f5642645b5cf64d624c66a1406e43...@us-ny-mail-002.waitex.net
** 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.
