我想单击listBox的一项 使得txtNub cboType dtpEsp txtReason获得对应数据库里的记录! Private Sub Form_Load()
    Call getCn
    Dim SQL As String
    SQL = "select * from [异动记录]"
    Set rs = New ADODB.Recordset
    rs.Open SQL, cn, adOpenKeyset, adLockOptimistic
    Do Until rs.EOF
        libNub.AddItem rs("学号")
        rs.MoveNext
    Loop
    If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        showing
    End If
End Sub
Private Sub showing()
    txtNub = rs("学号")
    cboType = rs("类型")
    dtpEsp = rs("日期")
    txtReason = rs("原因")
End SubPrivate Sub libNub_Click()
    Call showing
End Sub

解决方案 »

  1.   

    Private Sub showing()
        rs.Find "学号='" & libNub.Text & "'", , , adBookFirst 
        txtNub = rs("学号") 
        cboType = rs("类型") 
        dtpEsp = rs("日期") 
        txtReason = rs("原因") 
    End Sub 
      

  2.   

    我写的这个单击事件没反应
    Private Sub libNub_Click() 
        Call showing 
    End Sub
      

  3.   

    谢谢VB老鸟,我刚才试了:rs.Find "学号='" & libNub.Text & "'", , , adBookFirst 
    其实应该把它放在Private Sub libNub_Click() 
                     rs.Find "学号='" & libNub.Text & "'", , , adBookFirst 
                     Call showing 
                  End Sub
    更合适!