listview的又难度的问题

[changtian2003]

我用如下方法把listview 控件的 l_lvi.data ，l_lvi.label ，lv_1.additem(l_lvi) 都邦定到一起


fetch cur_zy into :str_zy ,:zy_dm ;
do while sqlca.sqlcode=0
if sqlca.sqlcode=100 then
exit
messagebox('error','没有数据')
end if
// count = count + 1
listviewitem l_lvi
l_lvi.data = zy_dm
l_lvi.label =string(str_zy)
lv_1.additem(l_lvi)
//lv_1.additem(string(str_zy),count)
fetch cur_zy into :str_zy,:zy_dm;

上面的代码都正确
想用下面的方法通过l_lvi.data 再查找到邦定的l_lvi.label
不知道下面的代码那里有问题应该怎么修改

l_lvi.data = long(sle3)

lv_1.GetItem(li_index,l_lvi)
zy3_mc = l_lvi.label
lv_1.setItem(li_index,l_lvi)
zy3_mc = l_lvi.label

li_index = lv_1.FindItem(0,zy3_mc, true,true)

[CodeMagic]

lv_1.GetItem(li_index,l_lvi)
zy3_mc = l_lvi.label
lv_1.setItem(li_index,l_lvi)
zy3_mc = l_lvi.label

这4条语句重复，用最上边的两条就可以了。

我不太清楚你想要做什么事情，能说得清楚些么？

[CodeMagic]

如果想找到Data值为某一个给定值的ListViewItem，可以这么写：

Int i
ListViewItem lvi

For i=1 To lv_1.TotalItems()
lv_1.GetItem(i,lvi)
If Lower(String(lvi.Data))<>Lower('给定值') Then Continue

MessageBox('',lvi.Label) //找到，则退出
Exit
Next

[changtian2003]

谢谢，使这个意思 ，对了 ，感谢感谢
加分