Question

vfp click事件代码 表单运行无反应，跪求高手解答！

local cName
cName=ALLtrim(THISFORM.txtBM.Value)
select 职工表
if !empty(cName)
locate for 部门=cName
if found()
thisform.Grid1.RecordSource="select ZGB.职工号,ZGB.姓名,ZGB.职称,GZB.基本工资,GZB.实发工资;
from 工资表 GZB,职工表 ZGB;
WHERE ZGB.姓名=GZB.姓名 andZGB.职工号=GZB.职工号 andGZB.基本工资=ZGB.基本工资 and ZGB.部门=cName;
order by ZGB.职工号 into cursor cjb"
else
messagebox("部门记录中无"+cName,16,"提示信息")
thisform.txtBM.Value=""
thisform.txtBM.setfocus
endif
else
MessageBox("没有输入部门名称,无法查询",16,"提示信息")
thisform.txtBM.setfocus
endif
（要求是做一个表单查询工资，程序运行时输入部门点回车无反应，但输入错误信息时提示正常，求高手解答出错在哪儿，下图是运行图，输入部门后查询 没有反应）

Answer 1

这句有很大问题, 但是由于我不了解你的表结构,无法完全查出来:
select ZGB.职工号,ZGB.姓名,ZGB.职称,GZB.基本工资,GZB.实发工资;
from 工资表 GZB,职工表 ZGB;
WHERE ZGB.姓名=GZB.姓名 andZGB.职工号=GZB.职工号 andGZB.基本工资=ZGB.基本工资 and ZGB.部门=cName;
order by ZGB.职工号 into cursor cjb

里面少空格可能是你这里输入少了, 程序里没少吧?
职工表和工资表应该通过职工号关联吧, 你怎么还有姓名?
怎么两个表里都有基本工资? 这不是重复了吗?

另外你设置表格控件的recordsourcetype属性为 sql语句 了吗?????