关于listbox

Question

如何选中listbox里的一项，该项是由循环产生的：
For i = 0 To j - 1
List1.AddItem "" & rs("name") & rs("no") & ""
rs.MoveNext
我的意思是，选中其中一项，则其相关的信息就在另外的地方显示出来。
这个怎么写啊！
--------
|刘军2 |
|张三1 |
|李四3 |
-------- 

Answer 1

rs("name") ,不知道你在说什么？

Answer 2

如何选中listbox里的一项，该项是由循环产生的：
For i = 0 To j - 1
List1.AddItem "" & rs("name") & rs("no") & ""
rs.MoveNext如图：
--------
|刘军2 |
|张三1 |
|李四3 |
-------- 我的意思是，选中其中一项，则其相关的信息就在另外的地方显示出来。
比如点“刘军2”，则关于他的一些信息就分别在test里显示出来。
这个怎么写啊！

Answer 3

以前写的
Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.RecordsetPrivate Sub Form_Load()
Dim apppath As String
Dim DbFileName As String
Dim ConnectString As String
Dim i As Integer
Set conn = New ADODB.Connection
If Right(App.Path, 1) = "\" Then
                apppath = App.Path
        Else
                apppath = App.Path & "\"
End If
DbFileName = apppath & "article.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                DbFileName & ";Persist Security Info=False;"
                
                On Error Resume Next
                With conn
                        .CursorLocation = adUseClient
                        
                        .Open ConnectString
                End With
                Set rs = New ADODB.Recordset
rs.Open "select id,mc from mz", conn, 1, 3
If rs.EOF Then
Exit Sub
End IfFor i = 0 To rs.RecordCount - 1
List1.AddItem rs.Fields("mc")
List1.ItemData(i) = rs.Fields("id")
rs.MoveNext
NextEnd SubPrivate Sub List1_Click()
Dim strsql As String
strsql = "select memo from mz where id=" & List1.ItemData(List1.ListIndex)
Set rs = New ADODB.Recordset
rs.Open strsql, conn, 1, 3
Text1.Text = rs.Fields("memo")
End Sub

Answer 4

你在LIST控件的TAG属性存储附加信息！然后将它存到你想要的地方！