>>When I run the form the code does it's work OK but when I press < ENTER> nothing happens.
>>
>>Any ideas???
>Hi,
>The problem is 1) your NODEFAULT is always happenning, so it is blanking your ENTER keypress. 2) you have to pass the given parameters when you DODEFAULT().
>
>Try :-
>
>LPARAMETERS nKeyCode, nShiftAltCtrl
>local lnant_start
>
>IF nKeyCode = 45
> nodefault
> lnant_start = this.SelStart
> this.SelStart = 0
> this.SelLength = lnant_start
> this.SelText = transform(val(left(alltrim(str(val(this.SelText))), 4)), "@L 9999")
> this.SelStart = 4
>ELSE
> dodefault( nKeyCode, nShiftAltCtrl)
>ENDIF
Worked just fine. Thanks for your help.
Ricardo M. Araoz
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only