PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" AllowOutput = .F. Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Alignment = 3, ; ControlSource = "test.numeric", ; InputMask = "999,999", ; && with "999999" the bug not appear Left = 61, ; Top = 47, ; Name = "Text1" ADD OBJECT command1 AS commandbutton WITH ; Top = 46, ; Left = 186, ; Height = 27, ; Width = 84, ; Caption = "captureFocus", ; Name = "Command1" PROCEDURE Load create cursor test (numeric N(8,0)) append blank *replace numeric WITH 0 && with a not blank field the bug not appear ? 'IS Blank',ISBLANK(numeric) ENDPROC PROCEDURE Text1.GotFocus KEYBOARD '5{TAB}' && simulate a digit input with TAB lostfocus ENDPROC ENDDEFINEManual repro:
PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" AllowOutput = .F. Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Alignment = 3, ; ControlSource = "test.numeric", ; InputMask = "999,999", ; && with "999999" the bug not appear Left = 61, ; Top = 47, ; Name = "Text1" ADD OBJECT command1 AS commandbutton WITH ; Top = 46, ; Left = 186, ; Height = 27, ; Width = 84, ; Caption = "captureFocus", ; Name = "Command1" PROCEDURE Load create cursor test (numeric N(8,0)) append blank *replace numeric WITH 0 && with a not blank field the bug not appear ? 'IS Blank',ISBLANK(numeric) ENDPROC *!* PROCEDURE Text1.GotFocus *!* KEYBOARD '5{TAB}' && simulate a digit input with TAB lostfocus *!* ENDPROC ENDDEFINENotes: