关于vfp6.0版本，表单设计，

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

SELECT DWMC FROM KEHU WHERE KHFL='租出客户'into cursor my_temp &&into cursor是将查询到的数据输出到临时表my_temp,然后再对my_temp临时表进行控制即可

[1]:
lcSee=allt(thisformtext1value)
if empty(lcSee) &&确定输入项目非空
wait '请输入要查找的姓名' window at srows()/2,scols()/2 noclear timeout 2
wait clea
thisformlabel22caption=''
thisformtext1setfocus
retu f
endif
cDbf='rsb'
if !used(cDbf)
use &cDbf in 0
endif
select &cdbf
go top in &cDbf
locate for allt(姓名)==lcSee all
if found()
thisformlabel22caption=“已为您查到信息，请注意保密！“
thisformsetall('enable',T,'textbox') &&设置为可用
开始赋值，因为内容较多，假设你的表字段顺序和text顺序一致
for i=1 to 21
lcstr=field(i,cdbf)
lctxt="text"+tran(i+1)
thisform&lctxtvalue=tran(&cdbf&lcstr)
endfor
如果不一致，那么可以先按顺序选出再输出到临时表或其他方式
此处略
else
thisformsetall('value','','textbox') &&清空内容
thisformsetall('enable',f,'textbox') &&设置不可用
thisformtext1enable=t
thisformlabel22caption=”未查到相关信息，请确认输入的名字是否正确！“
endif
[2]:
go top
cdbf=alias()
go top
赋值---建议写成表单的事件过程，方便调用！！
for i=1 to fcount(cdbf) &&为了不出错，取表的字段数！
if i<=21 &&超过了21个就不显示了。
lcstr=field(i,cdbf)
lctxt="text"+tran(i+1)
thisform&lctxtvalue=tran(&cdbf&lcstr)
endif
endfor
----这是简单处理赋值

上一条
cdbf=alias()
if between(recn(),2,recc() )
skip -1
自己调用下赋值
endif
下一条
cdbf=alias()
if between(recn(),1,recc()-1 )
skip +1
自己调用下赋值
endif
最后页
cdbf=alias()
go bottom
自己调用下赋值
打印
REPORT FORM 你的报表frx TO PRINTER PROMPT NODIALOG PREVIEW
打印前先预览下
返回
release thisform
do form syjm

DO form 表单名称
READ EVENTS

也就是说，在DO form 表单名称
这条语句后面加上
READ EVENTS
试试看，我就是这样搞定的。

---