Question

VFP 表单中设计两个文本框分别输入起止号查找记录,例如查找学号为1---5的学生信息

Answer 1

t1=alltrim(thisform.text1.value)
t2=alltrim(thisform.text2.value)
sele * from 学生 where 学号>=t1 and 学号<=t2 into cursor "temp"
thisform.grid1.recordsource="temp"

Answer 2

你的学生表里学号最好用数值型。
t1=val(thisform.text1.value)
t2=val(thisform.text2.value)
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource="sele * from 学生 where 学号>=t1 and 学号<=t2 into cursor temp"

追问

老师你好,我还有个问题请教你
我还要增加一个文本框查找单个姓名我写了以下代码,查找学号没问题,但是用姓名查找时不但查不出结果,反而把第一条记录是姓名修改了
t3=alltrim(thisform.text3.value)
thisform.grid1.recordsourcetype=4
do case
case t1<0 and t2<0
thisform.grid1.recordsource="sele * from zrjh where 姓名=t3 into cursor temp"
endcase
用姓名查找时不用学号,哪里有问题,请指教

追答

为什么要用DO CASE?
t3=alltrim(thisform.text3.value)
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource="sele * from zrjh where 姓名=t3 into cursor temp"
thisform.grid1.refresh
这样就可以了啊。
怎么会把第一个记录的姓名改了呢？是不是你把文本框和表记录里的字段绑定了？不要绑定！！

追问

VFP表单中再添加一个打印按钮,(功能:把查找出来的记录用设计好的报表格式打印出来,而不是打印所有记录)代码怎么写?打印预览代码怎么写?(功能:查找到的记录用报表预览)
谢谢

追答

根据以上代码，GRID1的数据来源是临时表temp，你要打印帅选出来的记录，就是temp表中的记录。要将临时表内的记录打印出来，最好在报表中设计/排版好。举例说，比如记录有3个字段：学号，姓名，地址。你在报表设计中拖三个域控件到DETAIL栏里，表达式分别为：temp.学号；temp.姓名；temp.地址。然后保存，假设文件名为REPORT1。 然后在表单里添加一个按钮，命令如下：
SELECT temp
REPORT FORM REPORT1 PREVIEW
这就实现了预览的功能，要打印的话，在预览窗口里有个打印机图标，点击则进行打印。