Hi all,
I've class form with container including grid,which Columns of grid has
textbox to display numeric data with interger and decimal in a same column.
I used Dynamicinputmask method of column to display interger and deciaml,but
interger only displayed in textbox, while both("999,999","999.99") successfully
displayed with column only after removing textbox control.
How can I display both inputmask into textbox and column?
My procedure is as follows;
1. Form loaded
2. container(including grid) class instanciated
. - grid's recordsource and column count set
. - controlsource of each column set and appropriate textbox added
. with addobject()
. - Dynamicinputmask set
. WITH This.Grid
. .column6.Dynamicinputmask=IIF(llDgt,"9,999,999","99,999.9")
. .column7.Dynamicinputmask=IIF(llDgt,"9,999,999","99,999.9")
. .
. ENDWITH
3.form and grid displayed
TextBox has to receive data input with both type and has valid method to
chk data validity, so I subclassed a textbox for this grid use only and
coded in getfocus() method as follows, but not changed into decimal input
state on getting focus().
. LOCAL llDgt
. DODEFAULT()
. IF !empty(THIS.controlsource) AND VARTYPE(eval("UNIT"))="C"
. llDgt=EVAL("UNIT") $"EASetPrs"
. This.inputmask=IIF(llDgt,"9,999,999","99,999.9")
. ENDIF
. ENDIF
Thank you in Advance for all your advice.
MCP