Private Sub SCSL_AfterUpdate()
Me.Refresh '刷新LIST1
End Sub作者: einstein_supeng 时间: 2007-2-11 00:38
Private Sub SCSL_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Form_班组指定.Refresh
DoCmd.GoToRecord , , acNext
End If
End Sub