请教：我用listview控件显示数据库，怎么实现点击某一条纪录就返回该条纪录的值呢？

Question

我用listview控件显示数据库，怎么实现点击某一条纪录就返回该条纪录的值呢？谢谢，是不是还有更好的办法呢？

Answer 1

用 DataGrid 控件,如果想點擊某一條紀彔就返回該條紀彔的值的話,就使用 DataGrid_RowColChange

Answer 2

upDataGrid_RowColChange  怎么用呢？怎么获取返回的直呢？

Answer 3

ListView1.SelectedItem.Text    '取第一项
ListView1.SelectedItem.SubItems(1) '取第二项
listview1.selecteditem.subitems(n) 'n>0 取第n项

Answer 4

谢谢。但是怎么点击的时候返回呢？
listview1_ColumnClick()  
msgbox(ListView1.SelectedItem.Text)只有点击最顶上上那一行时才返回值啊。怎么触发这个事件呢？

Answer 5

Private Sub lvUser_ItemClick(ByVal Item As MSComctlLib.ListItem)
On Error GoTo Errhandle
    If Item Is Nothing Then Exit Sub    txtUID.Text = Item.Text
    txtTrueName.Text = Item.ListSubItems(2).Text    Exit Sub
Errhandle:
    MsgBox Err.Description
End Sub

Answer 6

private sub listview1_click()
ListView1.SelectedItem.Text    '取第一项
ListView1.SelectedItem.SubItems(1) '取第二项
listview1.selecteditem.subitems(n) 'n>0 取第n项
end sub

Answer 7

我的方法是
在向LV添加数据时，在参数KEY中，使用连续的数字，这样在数据添加后，在点击LV时取出KEY的数值，然后用RECORD的MOVE方法将数据库指针移到当前记录的位置，即可显示当前的记录值方法有些笨，先用着

Answer 8

谢谢各位的回复，已经解决问题。
 Private  Sub  listview1_ItemClick(ByVal  Item  As  MSComctlLib.ListItem)  
On  Error  GoTo  Errhandle  
       If  Item  Is  Nothing  Then  Exit  Sub  
           ListView1.SelectedItem.Text        '取第一项  
           ListView1.SelectedItem.SubItems(1)  '取第二项  
           listview1.selecteditem.subitems(n)  'n  >0  取第n项   
       Exit  Sub  
Errhandle:  
       MsgBox  Err.Description  
End  Sub