vb小问题

Question

If List1.SelCount > 0 Then
    Text1.Text = List1.Text
End If这段代码修改一下就行

Answer 1

假设  控 件：listbox1、text1，
     数据库：D:\Test.MDB
       表  ：Table1
     字段名：姓名、联系方式Private Sub List1_Click()
    Dim objDB   As Database
    Dim objRS   As Recordset
    Dim strSQL  As String
    '根据里列表选中项的值，形成SQL文
    strSQL = "Select * From Table1" _
       & " Where 姓名='" & List1.Text & "'"
    '打开数据库，抽出满足条件的记录
    Set objDB = OpenDatabase("D:\Test.mdb")
    Set objRS = objDB.OpenRecordset(strSQL)
    If Not objRS.EOF Then
        '将抽出数据送入Text控件
        Text1 = objRS.Fields("联系方式").Value & ""
    End If
    '关闭数据库
    objRS.Close
    objDB.Close
End Sub注：为了提高响应速度，可以将objDB定义成Form级变量，
    在Form_Load中打开数据库，在Form_Unload中关闭。

Answer 2

在listbox的click事件中Private Sub lstName_Click()
text1.text=lstName.text 
End Sub