我在表单1中建立一个查询,查询的字段为"员工姓名"
我的代码是:
SELECT *DBF
AA=ALLTRIM(THISFORM.TEXT1.VALUE)
LOCATE FOR 姓名=AA
DO FORM 表单2
第二个表单是从*DBF生成的,代码如下
在FORM的INTO里是这样的
LOCATE FOR AA=*DBF.姓名
THISFORM.REFRESH
但是在第二表单里却不能显示我要查询的内容,请教高手们指点!谢谢!

[[it] 本帖最后由 zif1819 于 2008-10-22 11:41 编辑 [/it]]

AA要设成全局变量。

如何设置成全局变量呢?谢谢!

public aa

我第一个表单的代码:
SELECT hmc01
public AA
AA=ALLTRIM(thisform.text1.value)
LOCATE FOR 姓名=AA
IF FOUND()
DO FORM form\ygxxmx
THISFORM.TEXT1.VALUE=""
ELSE
MESSAGEBOX("没有找到您所要的人员,请重新输入!",48,"系统提示")
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT1.SetFocus
ENDIF
第二个表单的代码
public AA
THISFORM.REFRESH
LOCATE FOR AA=HMC01.姓名
thisform.序号1.enabled= .F.
thisform.工号1.enabled= .F.
thisform.姓名1.enabled= .F.
thisform.性别1.enabled= .F.
thisform.学历_专业_1.enabled= .F.
thisform.部门1.enabled= .F.
thisform.职务1.enabled= .F.
thisform.身份证号码1.enabled= .F.
thisform.进厂日期1.enabled= .F.
thisform.备注1.enabled= .F.
请问是哪里的问题?再次多谢!

问题不止一个：
1、第二条PUBLIC不要；
2、在第一个FORM中将找到的记录放到一数组中（当然，数组要事先定义）；
3、在第二个FORM中将数组值赋给各个TEXT控件；
4、去掉第二个FORM中的LOCATE命令（主要是考虑效率问题）

SELECT hmc01
public AA
AA=ALLTRIM(thisform.text1.value)
LOCATE FOR 姓名=AA
IF FOUND()
DO FORM form\ygxxmx
THISFORM.TEXT1.VALUE=""
ELSE
MESSAGEBOX("没有找到您所要的人员,请重新输入!",48,"系统提示")
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT1.SetFocus
ENDIF
**第二个表单的代码
thisform.序号1.enabled= .F.
thisform.工号1.enabled= .F.
thisform.姓名1.enabled= .F.
thisform.性别1.enabled= .F.
thisform.学历_专业_1.enabled= .F.
thisform.部门1.enabled= .F.
thisform.职务1.enabled= .F.
thisform.身份证号码1.enabled= .F.
thisform.进厂日期1.enabled= .F.
thisform.备注1.enabled= .F.

如果你一定要在第二个FORM中用LOCATE命令，则在第二个FORM中：
1、去掉PUBLIC命令；
2、增加SELECT hmc01命令；
3、将找到的记录按字段赋给各个TEXT控件

可能我还没有明白,我按qjbzjp老师的代码试了一下,第二表单的记录始终只显示HMC01的第一个记录?
而ibmlang_002老师所说的"2、在第一个FORM中将找到的记录放到一数组中（当然，数组要事先定义）；
3、在第二个FORM中将数组值赋给各个TEXT控件；"我也将第二表单的PUBLIC命令和LOCATE语句去掉,但结果也是只显示了HMC01的第一个记录?是什么回事啊?

第二个表单中数据环境一定加了HMC01，删除它。
并在第二个表单的init中加this.Refresh