TEXT1.KEYPRESS 事件（VFP9代码）

LPARAMETERS nKeyCode, nShiftAltCtrl &&本行代码是原来事件中就有的
IF INLIST(nKeyCode,7,127) &&用DEL(BACKSPACE)键删除
   THISFORM.TEXT1.Value=CAST(THISFORM.TEXT1.Value AS C(100))
   *或者
   *THISFORM.TEXT1.Value=TRANSFORM(THISFORM.TEXT1.Value) && VFP6.0代码
   THISFORM.TEXT1.Value=[]
ENDIF 

试试，是否能达到楼主的要求

[ 本帖最后由 sdta 于 2013-4-24 17:53 编辑 ]

thisform.text1.value=723.5这句，是让text1变成带小数的数值型了，如果你想用键盘清除文本框的小数点。就让它变成字符型吧（thisform.text1.value='723.5'）,此后如果你要用的是数值型，就需转换一下了 val(thisform.text1.value)

text1的值既有通过计算获得，也可以直接录入，一 计算获得 代码在TEXT2文本框，双击TEXT2文本框,通过一些比较复杂的计算，求得TEXT1文本框的值，二 直接录入 需要去掉小数点，我找到解决的办法了，就是将TEXT1的READONLY=.T.,如果text1要输入数据，双击text1,代码如下：
READONLY=.F.
thisform.text1.value=""
thisform.refresh
然后录入数据

谢谢各位师傅的帮助

以上各位师傅说的办法我再试试，用最优的方案解决

既然最终还是回到字符型，为何不开始时就让它是字符型呢。

问题是是这样的，经过计算，变量tt=723.5,我怎么把变量TT赋值给文本框TEXT1，使TEXT1的值是字符型的？这个我不会

.Text1.Value = TRANSFORM(tt)

非常感谢，问题完美解决了

11楼的示例看了吗