FoxInCloud
Re: Problem with textbox's Format
Messages
Reply
Edit
Delete
May. 3, 2013
07:39 am
3RY0GF9TU![Show this entire thread in new window]()
07:39 am
3RY0GF9TU
| From: | Thierry Nivelet (FoxInCloud) |
| To: | Michele |
were you running in debug mode?
Sorry, but htere was an error in the "InteractiveChange" event of the class so probably the execution was aborted without messages...
does this code execute?
this.Value = iif(Vartype(m.this.Value) == 'C', Upper(m.this.Value), m.this.Value)
My classes hierarchy is this:
AW.VCX
COMMON.VCX
ERP.VCX
SUPPORT.VCX
In every vcx library i have a textbox and the only level where i have code in the vali is in COMMON.VCX and obviously in AW.VCX (But this is not mine)...The code now is this
IF (Type('m.thisForm.wlHTMLgen') == 'L' AND m.thisForm.wlHTMLgen)RETURNDoDefault()ElseDoDefault()this.Value = iif(Vartype(m.this.Value) == 'C', Upper(m.this.Value), m.this.Value) && be aware that this..Value may be numericENDIF
but it doesn't work.....characters are always in lower case
1/ you'd rather use DoDefault() instead of copying parent class code
2/ is the code you posted located in xxx.vcx!xxxTxt.valid()?
3/ if so, do you call DoDefault() in your subclass or instance code?
4/ how does your code compare to this?
&& xxx.vcx!xxxTxt.valid()IF (Type('m.thisForm.wlHTMLgen') == 'L' AND m.thisForm.wlHTMLgen)RETURNDoDefault()ELSEthis.Value = iif(Vartype(m.this.Value) == 'C', Upper(m.this.Value), m.this.Value) && be aware that this.Value may be numericENDIF&& subclass or instance of xxx.vcx!xxxTxt.valid()IF (Type('m.thisForm.wlHTMLgen') == 'L' AND m.thisForm.wlHTMLgen)RETURNDoDefault()ELSEDoDefault()<you code>ENDIF
I have some textboxes in my form....every textbox has Format = "!", but when i insert text without caps lock enabled.....in the form i see text in upper case, but really in the table text has been saved in lower case....i tried to insert in the textbox valid this code
If (Type('m.thisForm.wlHTMLgen') == 'L' And m.thisForm.wlHTMLgen)Return Not lContIn(m.this, 'Column')ElseThis.Value = Upper(This.Value)Endif
but nothing changes
-- thn (FoxInCloud)