VFP 愛用者社區

[卢习林]

各们大侠：
你们好！
请帮个忙
就是我查询统计后，再把查询结果输入到一个表中时，然后关闭表，再打开表
然后再查询，用brow都可以看到查询结果是对的，就中表单中的表就变成一片空白了，是怎么回事？此时如果关闭表单，再运行，表单中的表格里的内容就是符合上一次所输入的条件，不再是全表的内容？
代码如下，请大家分析一下是什么原因，改一下，然后回复给我，小弟感激不尽
**********判断单选按按钮所处位置********
if allt(thisform.text3.value)==""
messagebox("请你为选择的条件输入相应的值,不要乱搞好不好,搞出问题了怎么办呀!!!","系统警告")
else
PUBLIC dx,gjz
dx =thisform.OptionGroup1.Value
gjz = ALLTRIM(thisform.Text3.Value)
DO CASE
CASE dx = 1
W1_cLocateFor = "名称 = "
CASE dx = 2
W1_cLocateFor = "编号 == "
CASE dx = 3
W1_cLocateFor = "类型 = "
ENDCASE
SET FILTER TO
LOCATE ALL FOR &W1_cLocateFor. gjz
IF FOUND()
SET FILTER TO &W1_cLocateFor. gjz
go top
hjje=0
hjsl=0
do while !eof()
hjje=hjje+(现存数量*单价)
hjsl=hjsl+(现存数量)
skip
enddo
go top
set safety off
SELECT * FROM 仓库!仓库表 WHERE 仓库表.&W1_cLocateFor. gjz INTO TABLE 统计仓库表.dbf
thisform.text4.value=hjje
thisform.text5.value=hjsl
close all
use 仓库表
SET FILTER TO
LOCATE ALL FOR &W1_cLocateFor. gjz
if found()
SET FILTER TO &W1_cLocateFor. gjz
thisform.refresh
endif
endif


ELSE
=MESSAGEBOX("你輸入的條件不存在,請重新輸入",0,"系統提示")
thisform.Text3.Value = ""
ENDIF
endif

[卢习林]

哎，突然想起来了，应该是表单中的表格要重新与相应的表梆定吧