您的位置：程序门 -> vb ->

救小弟，把查询一列放在listview中，然后希望点击某个格可以直接把它的值赋给text.怎么办呀？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

救小弟，把查询一列放在listview中，然后希望点击某个格可以直接把它的值赋给text.怎么办呀？

发表于：2007-10-09 16:50:17 楼主

dim rs_addname as new adodb.recordset
dim item as listitem
listview1.columnheaders.add , , "单位名称"
listview1.listitems.clear
listview1.view = lvwreport
dim ss as string
ss = "select * from 客户资料表"
rs_addname.open ss, conn, adopenkeyset, adlockpessimistic
do until rs_addname.eof
set item = listview1.listitems.add（, , rs_addname.fields（"单位名称").value)
rs_addname.movenext
loop
rs_addname.close
要什么方法与事件呢？？？

发表于：2007-10-09 16:57:241楼得分:0

private sub listview1_itemclick（byval item as mscomctllib.listitem)

text1.text = item.text
text2.text = item.subitems（1)

end sub

发表于：2007-10-10 08:56:412楼得分:0

set item = listview1.listitems.add（, , rs_addname.fields（"单位名称").value)

这时把东西也存到一个数组里面,然后 listview1_itemclick事件中获得当前id号在从数组中寻找这个位置

下一篇：activereport控件怎样不打印小数点打印
上一篇：vb 枚举隐藏进程

其他资讯