//窗口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
