Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Loose StrictDateEntry
Message
 
 
À
28/01/2005 13:44:51
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Divers
Thread ID:
00981831
Message ID:
00981840
Vues:
33
Here is my test:
PUBLIC oform1

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


	**************************************************
*-- Form:         form1 (c:\mmviscollect\test.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   01/28/05 01:48:07 PM
*
DEFINE CLASS form1 AS form


	Top = 17
	Left = 16
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		StrictDateEntry = 0, ;
		Format = "KD", ;
		Height = 23, ;
		Left = 36, ;
		Top = 48, ;
		Width = 160, ;
		Name = "Text1"


	PROCEDURE Load
		SET NOTIFY ON
	ENDPROC


	PROCEDURE text1.Init
		this.Value = DTOT({})
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************
What is the difference?

>Nadya-
>
>>I just found, that if StrictDateEntry is set to 0 for the textboxes bound to datetime value, you can not edit time portion of the textbox. Is it the expected behavior? Where it is documented?
>
>I don't have the same problem in a simple form with a simple textbox. Are you using a framework? Here's the code I used to try and duplicate the problem:
>
>
PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>
>DEFINE CLASS form1 AS form
>
>
>	Caption = "Form1"
>	Name = "Form1"
>
>
>	ADD OBJECT text1 AS textbox WITH ;
>		ControlSource = "temp.dt1", ;
>		Height = 23, ;
>		Left = 70, ;
>		Top = 43, ;
>		Width = 194, ;
>		Name = "Text1"
>
>
>	PROCEDURE Load
>		SET strictdate to 0
>		CREATE TABLE temp (dt1 t)
>		INSERT INTO temp VALUES (DATETIME())
>	ENDPROC
>
>
>ENDDEFINE
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform