初学者的问题

Question

用TIMER控件定时刷新吧。
Private Sub Timer1_Timer()
If DataEnvironment1.rsCommand2.State = 1 Then
    DataEnvironment1.rsCommand2.Close
End If
DataEnvironment1.Commands.Item(2).CommandText = "Select 退学学生.班级,退学学生.姓名 From 退学学生"
With DataReport1
    Set .DataSource = DataEnvironment1
        .DataMember = "Command2"
End With
DataReport1.Show
End Sub

Answer 1

Private Sub Timer1_Timer()
DataEnvironment1.rsCommand2.Requery
With DataReport1
    Set .DataSource = DataEnvironment1
        .DataMember = "Command2"
End With
DataReport1.Show
End Sub