虚心求教——窗口显示有关问题

虚心求教——窗口显示问题
窗口——
客户编号：sle_khbh.text
客户名称：ddlb_khmc.text
联系人：ddlb_lxname
作用：选择客户名称后自动跳出相应编号，并联系人窗口可选择其相应客户名称的联系人。
现象：选择一个客户后，再次选择另一个客户，联系人框存在上一次选择的客户名称下的联系人。
代码如下：
——————————————————
select khid into :sle_khbh.text
from 客户档案 where name=:ddlb_khmc.text;
string lxry
declare mycur1 cursor for
select lxname from 联系人 where khid=:sle_khbh.text;
open mycur1;
do while True
fetch mycur1 into :lxry;
if sqlca.sqlcode<>0 then exit
ddlb_lxname.additem(lxry)
loop
close mycur1;
——————————————————


------解决方案--------------------
select khid into :sle_khbh.text
from 客户档案 where name=:ddlb_khmc.text;
string lxry
ddlb_lxname.reset()//清空联系人下拉列表
declare mycur1 cursor for
select lxname from 联系人 where khid=:sle_khbh.text;
open mycur1;
do while True
fetch mycur1 into :lxry;
if sqlca.sqlcode<>0 then exit
ddlb_lxname.additem(lxry)
loop
close mycur1;

------解决方案--------------------
最好用dw来进行这类处理，用游标的话速度比较慢