点击按纽后没有反应?

[studysea]

一个表单的查询命令代码：
local fflag(3)
fflag(1)=alltrim(thisform.xfz1.value) *输入身份证号
fflag(2)=alltrim(thisform.bh1.value) *编号
fflag(3)=alltrim(thisform.xm1.value) *姓名
use zgzx
if thisform.xfz1.value <>"" *如果身份证号不为空
locate all for zgzx.xfz=fflag(1) *查找身份证号的记录
thisform.bh1.controlsource='zgzx.bh' *表单显示找到记录的编号
thisform.xm1.controlsource='zgzx.xm' *姓名
thisform.xb1.controlsource='zgzx.xb' *性别
if eof()
messagebox("找不到记录",48,"提示")
endif
else
if thisform.bh1.value<>"" *如果编号不为空
locate for zgzx.bh1=fflag(2)
……
else
if thisform.xm1.value<>"" *如果姓名不为空
locate for zgzx.xm1=fflag(3)
……
endif
endif
endif
use

输入身份证号后,按查询按纽,其它字段不显示

请赐教

[sunsunup]

thisform.bh1.controlsource='zgzx.bh' *表单显示找到记录的编号
thisform.xm1.controlsource='zgzx.xm' *姓名
thisform.xb1.controlsource='zgzx.xb' *性别
改為thisform.xxx.value = yyy
或者在後加
thisform.xxx.refresh()

[studysea]

thisform.xfz1.value=zgzx.xfz
thisform.xm1.value=zgzx.xm
thisform.refresh

我试过，也不行。

[sunsunup]

locate for zgzx.xfz=fflag(1) , 不要all

[sunsunup]

locate for LEFT(zgzx.xfz,LEN(FFLAG(1)) = fflag(1)

[studysea]

locate for zgzx.xfz=fflag(1) , 不要all
locate for LEFT(zgzx.xfz,LEN(FFLAG(1)) = fflag(1)
我试过，还是没有刷新。

我是想在身份证、编号、姓名三个字段任意输入一个进行查询。
用。or. 后，显示的是所有记录，不能得到所要的结果。
是不是我选用的方法不当。

[落单枫叶]

local fflag1,fflag2,fflag3
fflag1=alltrim(thisform.xfz1.value) *输入身份证号
fflag2=alltrim(thisform.bh1.value) *编号
fflag3=alltrim(thisform.xm1.value) *姓名
if used("zgzx") *选择源表
sele zgzx
else
use zgzx
endif
if len(fflag1)=15 or len(fflag1)=18 *如果身份证号正确

locate for zgzx.xfz=fflag(1) *查找身份证号的记录
if found()
thisform.bh1.value=zgzx.bh *表单显示找到记录的编号
thisform.xm1.value=zgzx.xm *姓名
thisform.xb1.value=zgzx.xb *性别
else
messagebox("找不到记录",48,"提示")
endif
else if len(fflag1)#0
kk=messagebox("身份证号不正确，请重填！",48,"提示")
if kk=1
thisform.xfz1.setfocse
endif
endif
…………

[zhplwy]

实话说我看不懂你写的，可能我比你差的多，但是我觉得，要是你想进行你说的那种查询，完全没必要这么写，觉得你的程序看起来麻烦。还有，你那个xfzl,xml,xbl是什么？你不是把单行文本框的name改的吧？要是改的，也改的规范点呀，看着不舒服。