对文本框加以下代码
thisform.text1.value=723.5
thisform.refresh
然后用键盘清除文本框内容，发现小数点清除不掉了，这是这么回事啊

没有，什么都没有设置，我需要在没有关闭表单的情况下清除掉小数点

不行，我需要在键盘上实现

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

谢谢各位师傅的帮助

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

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

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