Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to navigate in the filtered table
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00612736
Message ID:
00612766
Views:
31
>>Hi everybody,
>>
>>I've asked this question yesterday, but got 0 responces. So, I'll try to re-phrase the problem. I have a table, which could be filtered by user to show only suspect records. The records are shown in a grid. At the bottom of the form I have another grid with Streets table. So, suppose the street is spelled in a work file as "Old Country Rd" in the Streets table user sees "Old County Rd", he/she pressed accept button, and this record should disappear from the view (since it's manually resolved) and user should automatically go to the next record in a filtered view. I can not achieve this functionality. I always skip one more record, than needed.
>>
>>Could you please help me?
>>
>>Thanks in advance.
>
>A filter means not showing records that you do not want. So you do not have to move any record pointer. I think vfp will auto move to the next record that should be visible. So if you are doing any move after the filter is done then you are moving the record pointer by one. At least this is as much as I can deduce.

Right, Bret. Here is my modified method:
********************************************************************
*  Description.......: AddressForm.MoveNextRecord
*  Calling Samples...:
*  Parameter List....: tnRecno
*  Created by........: Nadya Nosonovsky 08/21/2001 03:44:58 PM
*  Modified by.......: Nadya Nosonovsky 01/30/2002 10:48:04 AM
********************************************************************
lparameter tnRecno
if recno() <> m.tnRecno && it's already automatically skipped
** Nothing to do
else
	if !eof()
		skip
		if recno()= m.tnRecno && we're still on the same record
			if !eof()
				skip
			else
				if !bof()
					skip -1
				endif
			endif
		endif
	else
		if !bof()
			skip -1
		endif
		if recno()= m.tnRecno && we're still on the same record
			if !bof()
				skip -1
			else
				if !eof()
					skip
				endif
			endif
		endif
	endif
	if eof()
		if !bof()
			skip -1
		endif
	endif
endif
return
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform