dw_1.visible=true
string bianhao,q
bianhao=trim(sle_1.text)
if bianhao="" then
messagebox("没有输入学号","请输入正确的查找条件！")
else
select houseid
into :q
from tbhousesale
where houseid=:bianhao;
if q="" then
messagebox("没有找到符合条件的房屋","请重新输入！")
end if
dw_1.retrieve(bianhao)
end if
sle_1.setfocus()
上面试代码，运行后没反应
首先：
select houseid
into :q
from tbhousesale
where houseid=:bianhao;
if q="" then
messagebox("没有找到符合条件的房屋","请重新输入！")
end if
上面那段代码的意义在哪里？得到一个q？可是这个q你在接下来根本没有用到啊。
这段代码执行后想要出来东西，就需要dw_1.retrieve(bianhao)有意义，你说运行后没反应那肯定就是dw_1有问题了。
可是你又没贴出dw_1里面的东西来的，没法帮你解答。
select houseid
into :q
from tbhousesale
where houseid=:bianhao;
if q="" then
messagebox("没有找到符合条件的房屋","请重新输入！")
end if
上面那段代码的意义在哪里？得到一个q？可是这个q你在接下来根本没有用到啊。
这段代码执行后想要出来东西，就需要dw_1.retrieve(bianhao)有意义，你说运行后没反应那肯定就是dw_1有问题了。
可是你又没贴出dw_1里面的东西来的，没法帮你解答。
温馨提示：答案为网友推荐，仅供参考
