Question

vfp中，在命令按钮中编辑语句设使表单运行时在文本框里显示系统日期，怎么做啊？急急急，谁会麻烦告诉一下

Answer 1

在按钮里写上：
THISFORM.TEXT1.VALUE=DATE()
在FORM的INIT事件里写上：
THISFORM.COMMAND1.CLICK
THISFORM.REFRESH

追问

如果是设成点击该按钮显示日期，不点击不显示，该怎么弄啊？

追答

那就更常规了。把FORM的INIT事件里代码删掉。仅在按钮的CLICK里写上如下代码即可：
THISFORM.TEXT1.VALUE=DATE()
THISFORM.TEXT1.REFRESH
以上代码执行后结果是：只要按钮点了，TEXT1里的日期一致显示着。
但我看你的追问，问的好像不是很明确，是不是说要设计成按钮点下去就在TEXT1显示日期，松开按钮TEXT1又不显示？如果是的话，那就如下设计：
在按钮的MOUSEDOWN事件里写上：
THISFORM.TEXT1.VALUE=DATE()
THISFORM.TEXT1.REFRESH
在按钮的MOUSEUP事件里写上：
THISFORM.TEXT1.VALUE=“”
THISFORM.TEXT1.REFRESH

Answer 2

代码如下：
thisform.height=thisform.text1.value
thisform.refresh &&这里必须有这么一句，也就是刷新，否则可能没有变化。
这里要确保你的text1文本框输入的值为数值型。如果输入的为字符型那么就要通过数值转换函数转换一下咯·。

Answer 3

thisform.text1.value=alltrim(str(year(date())))+"年"+alltrim(str(month(date())))+"月"+alltrim(str(day(date())))+"日"

Answer 4

先选中文本框，点右键，在生成器中将数据类型设置为日期型，然后在命令按键的click事件中输入：
thisform.text1.value=date()