Private Sub Report_Open(Cancel As Integer)
Dim sngStart As Single, sngEnd As Single
Dim sngElapsed As Single, count As Integer
Dim rs As ADODB.Recordset
Dim sum As Integer
Set rs = New ADODB.Recordset
rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
sngStart = Timer
sum = 0
For count = 1 To rs.RecordCount
If rs("是/否") = True Then
sum = sum + rs("数字")
rs.MoveNext
ElseIf rs("是/否") = False Then
kum = kum + rs("数字")
rs.MoveNext
End If
Next