FoxInCloud
Re: Problem with textbox's Format
Messages
Reply
Edit
Delete
May. 3, 2013
05:54 am
3RY0COK1L![Show this entire thread in new window]()
05:54 am
3RY0COK1L
| From: | Michele |
| To: | Thierry Nivelet (FoxInCloud) |
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