列表视图的应用
本帖最后由 hisweetgirl 于 2013-07-03 15:54:41 编辑 String m_code,m_name,m_kind,m_price,list_price,n_umber,s_upplier,u_selife
integer i,lm
DECLARE med CURSOR FOR
SELECT *
FROM medin
Open med;
FETCH med INTO:m_code,:m_name,:m_kind,:m_price,:list_price,:n_umber,:s_upplier,:u_selife
DO WHILE sqlca.sqlcode=0
lm=lv_1.AddItem(m_code,1)
lv_1.SetItem(lm,2,m_name)
lv_1.SetItem(lm,3,m_kind)
lv_1.SetItem(lm,4,m_price)
lv_1.SetItem(lm,5,list_price)
lv_1.SetItem(lm,6,n_umber)
lv_1.SetItem(lm,7,s_upplier)
lv_1.SetItem(lm,8,u_selife)
FETCH med INTO:m_code,:m_name,:m_kind,:m_price,:list_price,:n_umber,:s_upplier,:u_selife;
LOOP
CLOSE med;本来想打开窗口就显示数据库的一个表，但我写了游标但不知道怎么循环插入，还有循环到哪结束，假设我没法获取
表中有多少条记录
[解决办法]
循环插入，你不是做到了么？
[解决办法]
为什么不直接用datawindow 显示相关数据？
