Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to navigate in the filtered table
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00612736
Message ID:
00612766
Vues:
32
>>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform