Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Listbox numeric values and speedsearch
Message
 
 
À
02/12/2004 11:24:58
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
00966403
Message ID:
00966433
Vues:
8
>Yes it works as far as displaying in the right order, but the speedsearch does not work correctly still. I still get the same results. If the order is set to formname in the temporary table created, the list diplays in the correct order but the search works incorrectly. If I have:
>
>1
>25
>35
>125
>
>and I am on 1 in the list and I type 125 I go to 25.

The following works for me:
LOCAL o
o = CREATEOBJECT('_form')
o.Show(1)
o = null
RETURN

DEFINE CLASS _form AS form

	Height = 250
	Width = 240
	DataSession = 2

	ADD OBJECT list1 AS listbox WITH ;
		ColumnCount = 2, ;
		ColumnWidths = "75,200", ;
		RowSourceType = 2, ;
		RowSource = "", ;
		Height = 200, ;
		Left = 10, ;
		Top = 10, ;
		Width = 220, ;
		Name = "List1"

	PROCEDURE INIT
		CREATE CURSOR crsForms (FormName C(10), Descript C(10))
		INSERT INTO crsForms VALUES ('1', 'Form 1')
		INSERT INTO crsForms VALUES ('2', 'Form 2')
		INSERT INTO crsForms VALUES ('21', 'Form 21')
		INSERT INTO crsForms VALUES ('5', 'Form 5')
		INSERT INTO crsForms VALUES ('12', 'Form 12')
		INSERT INTO crsForms VALUES ('125', 'Form 125')
		INSERT INTO crsForms VALUES ('25', 'Form 25')
		INSERT INTO crsForms VALUES ('121', 'Form 121')
		INSERT INTO crsForms VALUES ('50', 'Form 50')
		INSERT INTO crsForms VALUES ('11', 'Form 11')
		INDEX ON VAL(FormName) TAG FormName
		SET ORDER TO FormName
		THIS.List1.RowSource = "crsForms"
	ENDPROC
	PROCEDURE Activate
		THIS.List1.SetFocus()
	ENDPROC
ENDDEFINE
Mark McCasland
Midlothian, TX USA
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform