Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
CRASH: Incomplete AutoComplete complete VFP
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Titre:
CRASH: Incomplete AutoComplete complete VFP
Versions des environnements
Visual FoxPro:
VFP 9
Divers
Thread ID:
01040842
Message ID:
01040842
Vues:
128
Run this:
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	ShowWindow = 2
	DoCreate = .T.
	Caption = "BAD AUTOCOMPLETE TABLE CRASH"
	Name = "Form1"

	ADD OBJECT text1 AS textbox WITH ;
		Height = 23, ;
		Left = 32, ;
		Top = 22, ;
		Width = 158, ;
		AutoComplete = 1, ;
		AutoCompSource = "GROUP1", ;
		AutoCompTable = "myTable1", ;
		Name = "Text1"


	PROCEDURE Load
		CREATE TABLE myTable1 FREE;
		(	Source	C(20)	NOT NULL	;
		,	Data	C(254)	NOT NULL	;
		,	Count	I		NOT NULL	;
		,	Weight	I		NOT NULL	;
		,	Created	T		NOT NULL	)

		INDEX ON UPPER(Source+LEFT(Data,30)) FOR NOT DELETED() TAG DATA

		INSERT INTO myTable1 VALUES ('GROUP1',"TEST",0,0,DATETIME())

		USE
	ENDPROC


	PROCEDURE text1.GotFocus
		ON KEY *
		TEXTBOX::GOTFOCUS
		TextBox::KeyPress(ASC('T'),0)
		NODEFAULT
		T1=SECONDS()+5
		DO WHILE SECONDS()<T1
			WAIT WINDOWS "WAIT FOR CRASH "+STR(SECONDS()-T1,5,1) TIMEOUT 0.5
		ENDDO
		WAIT CLEAR
		KEYBOARD '{ENTER}' PLAIN CLEAR
		ON KEY
	ENDPROC

ENDDEFINE
Expected:
NO WRITE !!! without any error !!! ( then a Lookup table it is immediate )
Répondre
Fil
Voir

Click here to load this message in the networking platform