Question

vfp的表单中我想用工号（gh）或者姓名（xm）或者部门（bm）就能查到工资表中的内容，代码怎么写？

open database D:员工工资管理系统\员工工资管理系统
if used ("工资发放表")
use in 工资发放表
endif
use D:员工工资管理系统\工资发放表
t1=alltrim(thisform.text1.value)
locate for gh=t1
select * from 工资发放表 where gh=t1 into cursor "temp"
thisform.grid1.recordsource="temp"
else
messagebox("查无此人",64,"提示")
thisform.grid1.recordsource=""
endif

Answer 1

open database D:员工工资管理系统\员工工资管理系统
if used ("工资发放表")
use 工资发放表 in 0
endif
use D:员工工资管理系统\工资发放表
t1=alltrim(thisform.text1.value)
locate for gh=t1
if find()
thisform.grid1.recordsource=null
select * from 工资发放表 where gh=t1 into cursor "temp"
thisform.grid1.recordsource="temp"
else
messagebox("查无此人",64,"提示")
thisform.grid1.recordsource=null
endif