Into the 2th column I add a new object, wich allows me to enter numbers like a calculator (class txtnumber).
Everthing works perfect. But there is a fly in the soupe: Before I enter this column, the number is displayed 'flat' like "12345.67", but as soon I enter this column, the display of the entered cell changes to the correct "12,345.67". Then, when I leave this cell, again I have the flat display.
In the form.init I have:
WITH THIS.grid1
.ALLOWROWSIZING = .T.
.RECORDSOURCETYPE = 2
.RECORDSOURCE = "KDV_1_tablo1"
(..)
.column2.ADDOBJECT("betrag","txtnumber")
.column2.betrag.nStyle = 2
.column2.betrag.INPUTMASK = "999,999,999.99"
.column2.betrag.VISIBLE = TRUE
.Column2.CURRENTCONTROL = "betrag"
betrag
.Column2.RemoveObject("text1")
(..)
.ACTIVATECELL(1,1)
.SETFOCUS()
.REFRESH()
ENDWITH
Is someone able to show me, where I made the mistake?
Thanks in advance
Everthing works perfect. But there is a fly in the soupe: Before I enter this column, the number is displayed 'flat' like "12345.67", but as soon I enter this column, the display of the entered cell changes to the correct "12,345.67". Then, when I leave this cell, again I have the flat display.
In the form.init I have:
WITH THIS.grid1
.ALLOWROWSIZING = .T.
.RECORDSOURCETYPE = 2
.RECORDSOURCE = "KDV_1_tablo1"
(..)
.column2.ADDOBJECT("betrag","txtnumber")
.column2.betrag.nStyle = 2
.column2.betrag.INPUTMASK = "999,999,999.99"
.column2.betrag.VISIBLE = TRUE
.Column2.CURRENTCONTROL = "betrag"
betrag
.Column2.RemoveObject("text1")
(..)
.ACTIVATECELL(1,1)
.SETFOCUS()
.REFRESH()
ENDWITH
Is someone able to show me, where I made the mistake?
Thanks in advance