我想单击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
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
rs.Find "学号='" & libNub.Text & "'", , , adBookFirst
txtNub = rs("学号")
cboType = rs("类型")
dtpEsp = rs("日期")
txtReason = rs("原因")
End Sub
Private Sub libNub_Click()
Call showing
End Sub
其实应该把它放在Private Sub libNub_Click()
rs.Find "学号='" & libNub.Text & "'", , , adBookFirst
Call showing
End Sub
更合适!