else 没有if?

Question

If count1 = True Then        If sum + Text1.Text > 10 Then
             MsgBox "您输入的题量总数不能超过10", vbOKOnly
        Else
        Call conn
        rs.Open sql, cn, 1, 3
                If rs.RecordCount = 0 Then
                MsgBox "没有找到你要找 的记录", vbOKOnly
                 Else
                     If rs.RecordCount < Text1.Text Then
                            If (MsgBox("数据库中的记录数没有达到您要求的数目,您是否要添加到试卷中", vbYesNo) = vbYes) Then
                                  With MSFlexGrid1
                                                .Cols = 9
                                                .Rows = rs.RecordCount
                                                For i = sum To .Row + sum
                                                     For j = 1 To 9
                                                     .TextMatrix(sum, j) = rs.Fields(j - 1).Value
                                                      Next
                                                rs.MoveNext
                                                Next
                                               sum = sum + rs.RecordCount
                                 
                                Else
                            Exit Sub
                                       
                            End If
                          
                                                  Else
                     '随机抽取
                     sum = sum + Text1.Text
                                         End If
            End If
End If为什么提示
                                                rs.MoveNext
                                                Next
                                               sum = sum + rs.RecordCount
                                 
                                Else
中else  没有if 啊？
请大家帮忙下啊 

Answer 1

5个if，4个end if，补个end if

Answer 2

If count1 = True Then        If sum + Text1.Text > 10 Then
             MsgBox "您输入的题量总数不能超过10", vbOKOnly
        Else
        Call conn
        rs.Open sql, cn, 1, 3
                If rs.RecordCount = 0 Then
                MsgBox "没有找到你要找 的记录", vbOKOnly
                 Else
                     If rs.RecordCount < Text1.Text Then
                            If (MsgBox("数据库中的记录数没有达到您要求的数目,您是否要添加到试卷中", vbYesNo) = vbYes) Then
                                  With MSFlexGrid1
                                                .Cols = 9
                                                .Rows = rs.RecordCount
                                                For i = sum To .Row + sum
                                                     For j = 1 To 9
                                                     .TextMatrix(sum, j) = rs.Fields(j - 1).Value
                                                      Next
                                                rs.MoveNext
                                                Next
                                               sum = sum + rs.RecordCount
                                 
                                Else
                            Exit Sub
                                       
                            End If
                          
                                                  Else
                     '随机抽取
                     sum = sum + Text1.Text
                                         End If
            End If
End IfEnd If对不起 刚粘贴错了
上面的代码调试的时候说
                                               sum = sum + rs.RecordCount
                                 
                                Else
                            Exit Sub
else 没有if 请高手指点下啊

Answer 3

Private Sub Command2_Click()
Dim sum As Integer
Dim i As Integer
If count1 = True Then    If sum + Int(Text1(0).Text) > 10 Then
        MsgBox "您输入的题量总数不能超过10", vbOKOnly
    Else
        'Call conn
        'rs.Open sql, cn, 1, 3
        'If rs.RecordCount = 0 Then
        If Text1(1).Text = 1 Then
            MsgBox "没有找到你要找 的记录", vbOKOnly
        Else
            If 1 = 1 Then
                If (MsgBox("数据库中的记录数没有达到您要求的数目,您是否要添加到试卷中", vbYesNo) = vbYes) Then                        For i = sum To 5
                            sum = sum + i
                        Next
                        
                                 
                Else
                    Exit Sub
                                       
                End If
                          
                             
            Print sum
            
            Else
                     '随机抽取
                sum = sum + Text1(0).Text
                     
                Print sum
            End If
        End If
    End If
End If
End Sub我用的if格式跟你的一样，只是其中的一些代码改了，没用到数据库的，都可以运行，没有提示错，是不是你其他调用的地方有错？