hur.cn - 华软网

 热门搜索

TreeView控件的ItemPopulate事件

  作者:未知    来源:网络    更新时间:2018/12/6
在TreeView控件的ItemPopulate事件事用InsertItemLast函数增加项,ItemPopulate事件会重复执行,而注掉InsertItemLast函数时则不会,讨教高手,为什么?
------华软网友回答------
代码呢?
------华软网友回复------
int li_rtn,i
string ls_sqlstmt,ls_dws,ls_errmsg=''

// 声明存储对象,用来存储树型控件的项目
DataStore lds_items
lds_items = create DataStore

// 猎取树形控件的当前项
li_rtn=tv_1.getitem(handle,itvi_item)

if li_rtn <>1 then return

// 根据当前项生成SQL语句
ls_sqlstmt='select bomid,pname,porc from bom where shop ='+g_sys_shop_no+' and parent='+string(itvi_item.data)
//生成数据窗口语法
ls_dws=sqlca.syntaxfromsql( ls_sqlstmt,"",ls_errmsg)

if ls_errmsg<>'' then
messagebox("产生毛病","生成数据窗口语法毛病!~r~t原因:"+ ls_errmsg)
return
end if

//根据数据窗口语法生成数据存储对象
lds_items.create(ls_dws,ls_errmsg)

if ls_errmsg<>'' then 
messagebox("产生毛病","生成数据存储对象毛病!~r~t原因:"+ls_errmsg)
return
end if

//设置事务对象并检索数据
lds_items.settransobject(sqlca)
li_rtn=lds_items.retrieve()
messagebox('',string(li_rtn))
//生成树型控件项
for i=1 to li_rtn
itvi_item.label=lds_items.getitemstring(i,'pname')
itvi_item.data=lds_items.getitemstring(i,'bomid')
if 'c'=lds_items.getitemstring(i,'porc') then
itvi_item.pictureindex=1
itvi_item.selectedpictureindex=2
else
itvi_item.pictureindex=3
itvi_item.selectedpictureindex=4
end if
itvi_item.children=true
tv_1.insertitemfirst(handle,itvi_item)
next
     
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。