关于Donews的记忆---段段经典

trim
ddlb_2.reset()
更重要的是游标的重用，和可以多次在内部使用

//窗口clcgcx_win的组合框ddlb_1的selectionchanged()事件 ，
实现的功能是当ddlb_1的值改变时从“采购表”中塞选与ddlb_1的
内容相对应的值并添加到组合框ddlb_2中
if trim(ddlb_1.text)="采购订单号" then
 //把组合框2中的数据清空
 ddlb_2.reset()
 string cgddh
 //重新到数据库中检索数据并添加到组合框2中
 declare cursor1 cursor for select distinct 采购订单号 from 采购表;
 open cursor1;
 fetch cursor1 into :cgddh;
 do while sqlca.sqlcode=0
  ddlb_2.additem(cgddh)
  fetch cursor1 into :cgddh;
 loop
 close cursor1;
elseif trim(ddlb_1.text)="厂商编号" then
 //把组合框2中的数据清空
 ddlb_2.reset()
 string csbh
 //重新到数据库中检索数据并添加到组合框2中
 declare cursor2 cursor for select distinct 厂商编号 from 采购表;
 open cursor2;
 fetch cursor2 into :csbh;
 do while sqlca.sqlcode=0
  ddlb_2.additem(csbh)
  fetch cursor2 into :csbh;
 loop
 close cursor2; 
elseif trim(ddlb_1.text)="厂商名称" then
 //把组合框2中的数据清空
 ddlb_2.reset()
 string csmc
 //重新到数据库中检索数据并添加到组合框2中
 declare cursor3 cursor for select distinct 厂商名称 from 采购表;
 open cursor3;
 fetch cursor3 into :csmc;
 do while sqlca.sqlcode=0
  ddlb_2.additem(csmc)
  fetch cursor3 into :csmc;
 loop
 close cursor3;  
elseif trim(ddlb_1.text)="车型代码" then
 //把组合框2中的数据清空
 ddlb_2.reset()
 string cxdm
 //重新到数据库中检索数据并添加到组合框2中
 declare cursor4 cursor for select distinct 车型代码 from 采购表;
 open cursor4;
 fetch cursor4 into :cxdm;
 do while sqlca.sqlcode=0
  ddlb_2.additem(cxdm)
  fetch cursor4 into :cxdm;
 loop
 close cursor4; 
elseif trim(ddlb_1.text)="产地" then
 //把组合框2中的数据清空
 ddlb_2.reset()
 string cd
 //重新到数据库中检索数据并添加到组合框2中
 declare cursor5 cursor for select distinct 产地 from 采购表;
 open cursor5;
 fetch cursor5 into :cd;
 do while sqlca.sqlcode=0
  ddlb_2.additem(cd)
  fetch cursor5 into :cd;
 loop
 close cursor5;  
elseif trim(ddlb_1.text)="采购日期" then
 //把组合框2中的数据清空
 ddlb_2.reset()
 string cgrq
 //重新到数据库中检索数据并添加到组合框2中
 declare cursor6 cursor for select distinct 采购日期 from 采购表;
 open cursor6;
 fetch cursor6 into :cgrq;
 do while sqlca.sqlcode=0
  ddlb_2.additem(cgrq)
  fetch cursor6 into :cgrq;
 loop
 close cursor6;  
end if