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

[liaoisok]

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
要什么方法与事件呢？？？

[fj182]

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

Text1.Text = Item.Text
Text2.Text = Item.SubItems(1)

End Sub

[tianhuo_soft]

Set Item = ListView1.ListItems.Add(, , rs_addname.Fields("单位名称").Value)

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