PB中两个ddlb关联的有关问题

PB中两个ddlb关联的问题
一个窗口上有两个ddlb控件，第一个显示类别，第二个显示该类别下的具体型号。比如，ddlb_1选中“U盘”，ddlb_2中会出来“1G”,"2G"等。这两个字段都在一张表里.结果是ddlb_1显示正确，但ddlb_2确是空白的。代码如下，请各位大虾帮我看看

我在ddlb_1上的constructor上写了：
string lb
declare cc cursor for select distinct(pj_lb) from dr.dbo.wq_pj_lb;
open cc;
fetch cc into :lb;
do while sqlca.sqlcode=0
wq_pj_rk.ddlb_1.additem(lb)
fetch cc into :lb;
loop
close cc;

后来在ddlb_1上的selectionchanged上写了：
string lb,cs
declare cursor3 cursor for select distinct pj_xxlb from dr.dbo.wq_pj_lb where pj_lb=:lb; 
open cursor3;  
fetch cursor3 into :cs;  
//messagebox('',CS )
do while sqlca.sqlcode=0  
  ddlb_2.additem(cs)  
  fetch cursor3 into :cs; 
loop 
close cursor3;




------解决方案--------------------
lb也没有值啊！

ddlb_2.reset()
lb = this.text
declare cursor3 cursor for select distinct pj_xxlb from dr.dbo.wq_pj_lb where pj_lb=:lb; 
open cursor3;
fetch cursor3 into :cs;
//messagebox('',CS )//看看这能取出值了吗 
do while sqlca.sqlcode=0
ddlb_2.additem(cs)
fetch cursor3 into :cs; 
loop 
close cursor3; 

------解决方案--------------------
新手也不要这么操作,
先将表全取出来,放到datastore里,不回用datastore,就用DW设置为隐藏,
执行 Filter
否则反复读取数据库,效率很底!
新手也不能要求别人写,

但是我重新选ddlb_1,ddlb_2中的内容不会自动更新
Description 
Deletes all the items from a list.
Controls 
ListBox, DropDownListBox, PictureListBox, and DropDownPictureListBox controls
Syntax 
listboxname.Reset ( )