WITH THISFORM IF !PEMSTATUS(THISFORM, [D], 5) .ADDOBJECT([D], [TXTDATE]) .D.MOVE(250,350) && This line got error .D.BORDERSTYLE = 1 .D.SPECIALEFFECT = 0 .D.VALUE = DATE() .D.CONTROLSOURCE = _DIARYDATE .D.VISIBLE = .T. endif endwith
WITH THISFORM IF !PEMSTATUS(THISFORM, [D], 5) .ADDOBJECT([D], [TXTDATE]) THISFORM.D.MOVE(250,350) && This line alright now! .D.BORDERSTYLE = 1 .D.SPECIALEFFECT = 0 .D.VALUE = DATE() .D.CONTROLSOURCE = _DIARYDATE .D.VISIBLE = .T. endif endwithThis is totally strange because other function for Thisform.D has no problem but Move() got problem.