else 没有if?
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 啊？
请大家帮忙下啊
[解决办法]
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格式跟你的一样，只是其中的一些代码改了，没用到数据库的，都可以运行，没有提示错，是不是你其他调用的地方有错？
