1,216
社区成员
Private Sub Command4_Click()
StrSQL = "select * from AlarmHistory where start time Between #" & Text2.Text & "# and #" & Text3.Text & "#"
If Rs.State <> 0 Then Rs.Close
Rs.Open StrSQL, Conn, 1, 3
If Rs.EOF Then
Else
DataGrid1.AllowUpdate = True
Timer2.Enabled = True
End If
End Sub