Question

VFP查询表单制作 将一张表的内容通过一个表格控件查询出来，输入姓名就可以查询到表单上的其他内容

local cName
cName=alltrim(thisform.txtXM.value)
select 表1
locate for 姓名=cName
if found()
sele 表1.学号,表1.会计缺勤次数,表1.高数缺勤次数,表1.英语缺勤次数,表1.计算机缺勤次数,表1.微观经济缺勤次数 from 表1 where 表1.姓名=cName order by 表1.学号 into cursor "ling" &&用sele语句将查询结果放入临时表
thisform.grid1.recordsource="ling" &&表格控件的数据源为temp这个临时表
else
messagebox("查无此记录")
endif
这是我遍的查询的代码
不知道哪里错了 点查询没反应 调试器里显示是姓名文本框对象是.F.
请知道怎么做的高手全程教我 实在是不会啊。。。

Answer 1

cName=alltrim(thisform.txtXM.value)
看你的图，文本伍闷框腔散弯的name应该是text1，所以上掘竖面换成
cName=alltrim(thisform.text1.value)
试试

追问

换了还是没用

追答

表加入数据环境了吗，还有，表是不是和表单在同一目录，设置默认目录没有？
你sele语句写得好复杂，只有一个表，就不需要加表1.了
sele * from 表1 where 姓名=cName order by 学号 into cursor "ling"

追问

加入了数据环境 怎么设置目录？

追答

工具-选项-文件位置-默认目录-修改，然后选择相应的文件夹，最后要点“设置为默认值”，再点确定按钮。

Answer 2

你的代码太复杂鸟。 使用 locate for 就不要使用 SELE 了
如果你的表的记录不多， 就不要使用 loca for 和sele sql 直接使用脊信 set filter 命令 简单又直接

1 使用sql 命令是 查询按钮的CLICK 代码
if empty（thisform.txtXM.value)
retu && 如果没伍察有输入姓名， 就直接返回
endif

local cName
cName=alltrim(thisform.txtXM.value)
sele 表1.学号,表1.会计缺勤次数,表1.高数缺勤次数,表1.英语缺勤次数,表1.计算机缺勤次数,表1.微观经济缺勤次数；
from 表1；
where 表1.姓名=cName ；
order by 表1.学号；
into cursor ling &&用sele语句将查询结果放入临时表 （临时表名称不需要引 号）
sele ling
if empty(ling.学号)
messagebox("查无此记录")
retu
endif

thisform.grid1.recordsourcetype=1
thisform.grid1.recordsource="" && 首先要置为空值
thisform.grid1.recordsource="ling" &&表格控件的数据源为temp这个临时表
thisform.grid1.refresh && 刷新一下

2 使用 set filter to

在表单的 INIT 事件中 设置 GRID 和表1的关联
thisform.grid1.recordsourcetype=1
thisform.grid1.recordsource=""
thisform.grid1.recordsource="表1"

查询按钮的CLICK 中的代码樱橘轮
if empty（thisform.txtXM.value)
retu && 如果没有输入姓名， 就直接返回
endif

local cName
cName=alltrim(thisform.txtXM.value)
sele 表1
set filter to allt(表1.姓名)==cName
thisform.grid1.refresh && 刷新一下