Question

VFP6.0表单设计

if at(":", ALLTRIM(thisform.text1.value)) = 0
thisform.text1.value = time()
else
thisform.text1.value = dtoc(date())
ENDIF
这是一个在文本框里每单击一下 时间和日期 之间切换的 程序
谁能把每步的作用写下来

Answer 1

首先明白:
time() 显示为 22:04:36
date() 显示为 2010.12.17
接下来解释:
if at(":", ALLTRIM(thisform.text1.value)) = 0 &&如果 “.” 在文本档中没有找到，代表显示的是时间
thisform.text1.value = time() && 文本框显示时间。
else && 否则
thisform.text1.value = dtoc(date()) &&文本框显示日期。
ENDIF &&END

Answer 2

单击哪里，单击文本框吗？如果是，就先在表单的init事件中写上代码：
public x
x=.t.
然后在文本框的chick事件中写上下面的代码：
if x=.t.
this.value=date()
else
this.value=time()
endif
x=!x

Answer 3

这是命令框的事件输入嘛...