仓库号,商品号,商品名和商品数量,这四个属性在后面重复出现,但没有数据
下面是“精确查询”按钮代码
int i=1
string s_goodsid,s_goodsname,s_goodsnumber,s_storeid
declare youbiao cursor for //申明游标把数据库中信息暂存到游标中
select storeid,goodsid,goodsname,goodsnumber
from goods
where storeid=:s_storeid;
s_storeid=trim(sle_1.text)
open youbiao;
fetch youbiao into :s_storeid,:s_goodsid,:s_goodsname,:s_goodsnumber;
lv_1.DeleteItems()
do while sqlca.sqlcode = 0
tab_1.tabpage_1.lv_1.additem(s_storeid,i)
tab_1.tabpage_1.lv_1.setitem(i,2,s_goodsid)
tab_1.tabpage_1.lv_1.setitem(i,3,s_goodsname)
tab_1.tabpage_1.lv_1.setitem(i,4,s_goodsnumber)
i=i+1
fetch youbiao into :s_storeid,:s_goodsid,:s_goodsname,:s_goodsnumber;
loop
close youbiao;