为什么next没有for？

msdf

大神们，我想要if符合条件的时候做错next进行自增继续循环下去的操作，该怎么改呢？

1. Dim cnn As New ADODB.Connection
   
2. Dim myStr As String
   
3. cnn.ConnectionString = "Provider=SQLOLEDB;User ID=sa;Password=12345678;Server=LAPTOP-4B0N1Q41\SQLEXPRESS;Database=contract"
   
4. cnn.Open
   
5. Set Rs_Cate = conn.Execute("SELECT conNum from list")
   
6. Arr_Cate = Rs_Cate.GetRows
   
7. Set Rs_Cate = Nothing
   
8. Dim Arr_CateNumS, Arr_CateNumI
   
9. Arr_CateNumS = UBound(Arr_Cate, 2) '得到数组中数据的下标
   
10. For i = 3 To Range("A65536").End(xlUp).Row
    
11. For Arr_CateNumI = 0 To Arr_CateNumS
    
12. If Cells(i, 2).Value <> "&Arr_Cate(0,Arr_CateNumI)&" Then
    
13. Arr_CateNumI = arr_cetenumi + 1
    
14. ElseIf Cells(i, 2).Value = "&Arr_Cate(0,Arr_CateNumI)&" Then
    
15. Next i
    
16. End If
    
17. Dim S As Integer
    
18. For S = i To Range("A65536").End(xlUp).Row
    
19. For l = 1 To Range("IV1").End(xlToLeft).Column
    
20. If IsNull(Cells(S, l)) = True Then
    
21. Cells(S, l) = Null
    
22. l = l + 1
    
23. End If

复制代码

msdf

原来还试过这样的

1. Dim cnn As New ADODB.Connection
   
2. Dim myStr As String
   
3. cnn.ConnectionString = "Provider=SQLOLEDB;User ID=sa;Password=12345678;Server=LAPTOP-4B0N1Q41\SQLEXPRESS;Database=contract"
   
4. cnn.Open
   
5. Set Rs_Cate = conn.Execute("SELECT conNum from list")
   
6. Arr_Cate = Rs_Cate.GetRows
   
7. Set Rs_Cate = Nothing
   
8. Dim Arr_CateNumS, Arr_CateNumI
   
9. Arr_CateNumS = UBound(Arr_Cate, 2) '得到数组中数据的下标
   
10. For i = 3 To Range("A65536").End(xlUp).Row
    
11. For Arr_CateNumI = 0 To Arr_CateNumS
    
12. If Cells(i, 2).Value <> "&Arr_Cate(0,Arr_CateNumI)&" Then
    
13. Next Arr_CateNumI
    
14. ElseIf Cells(i, 2).Value = "&Arr_Cate(0,Arr_CateNumI)&" Then
    
15. Next i
    
16. End If

复制代码

不知道为什么

看你这么自说自话的好开心的样子

msdf

不知道为什么 发表于 2018-8-6 11:37
看你这么自说自话的好开心的样子

不啊，问题都没有解决qwq……

zopey

用goto 直接跳转到next 前面。

zopey

for i=1 to 10
     if  i=5 then goto haha else msgbox 1/(i-5)
haha：
next

msdf

zopey 发表于 2018-8-6 11:45
for i=1 to 10
     if  i=5 then goto haha else msgbox 1/(i-5)
haha：

好的 我试一下！谢谢！

msdf

mikezhan 发表于 2018-8-6 12:32
IF 语句 和 FOR 循环语句，不能交叉嵌套！！！！！！！！！！！！

if...  then ...

嗯嗯，我现在明白是不能交叉嵌套了，但是我想要在if条件符合后面的语句后让i值或arr那个值自增，继续循环，请问有什么实现方法吗？我按照楼上的那位老师改了个goto语句，弹出错误提示是要求对象

1. Private Sub addBtn_Click()
   
2. Dim cnn As New ADODB.Connection
   
3. Dim myStr As String
   
4. cnn.ConnectionString = "Provider=SQLOLEDB;User ID=sa;Password=12345678;Server=LAPTOP-4B0N1Q41\SQLEXPRESS;Database=contract"
   
5. cnn.Open
   
6. Dim rs_cate As Variant, arr_cate As Variant
   
7. Set rs_cate = conn.Execute("SELECT conNum from list")
   
8. arr_cate = rs_cate.GetRows
   
9. Set rs_cate = Nothing
   
10. Dim Arr_CateNumS, Arr_CateNumI, i As Integer
    
11. Arr_CateNumS = UBound(arr_cate, 2) '得到数组中数据的下标
    
12. For i = 3 To Range("A65536").End(xlUp).Row
    
13. For Arr_CateNumI = 0 To Arr_CateNumS
    
14. If Cells(i, 2).Value <> "&Arr_Cate(0,Arr_CateNumI)&" Then
    
15. GoTo next1
    
16. ElseIf Cells(i, 2).Value = "&Arr_Cate(0,Arr_CateNumI)&" Then
    
17. GoTo next2
    
18. End If
    
19. next1: Next Arr_CateNumI
    
20. next2: Next i
    
21. Dim S As Integer, l As Integer
    
22. For S = i To Range("A65536").End(xlUp).Row
    
23. For l = 1 To Range("IV1").End(xlToLeft).Column
    
24. If IsNull(Cells(S, l)) = True Then
    
25. Cells(S, l) = Null
    
26. End If
    
27. Next l
    
28. Sql = "insert into list values('" & Cells(S, 2) & "','" & Cells(S, 3) _
    
29.                 & "','" & Cells(S, 4) & "','" & Cells(S, 5) & "','" & Cells(S, 6) & "'," & Cells(S, 7) & "," & Cells(S, 8) & ",'" & Cells(S, 9) & "','" & Cells(S, 10) & "'," & Cells(S, 11) & "," & Cells(S, 12) & ",'" & Cells(S, 13) & "', '" & Cells(S, 14) & "', '" & Cells(S, 15) & "','" & Cells(S, 16) & "'," & Cells(S, 17) & ",'" & Cells(S, 18) & "'," & Cells(S, 19) & "," & Cells(S, 20) & "," & Cells(S, 21) & "," & Cells(S, 22) & "," & Cells(S, 23) & ",'" & Cells(S, 24) & "','" & Cells(S, 25) & "','" & Cells(S, 26) _
    
30.                 & "','" & Cells(S, 27) & "','" & Cells(S, 28) & "','" & Cells(S, 29) & "','" & Cells(S, 30) & "'," & Cells(S, 31) & "," & Cells(S, 32) & "," & Cells(S, 33) & "," & Cells(S, 34) & "," & Cells(S, 35) & "," & Cells(S, 36) & "," & Cells(S, 37) & "," & Cells(S, 38) & "," & Cells(S, 39) & "," & Cells(S, 40) & "," & Cells(S, 41) & "," & Cells(S, 42) & "," & Cells(S, 43) & "," & Cells(S, 44) _
    
31.                 & "," & Cells(S, 45) & "," & Cells(S, 46) & "," & Cells(S, 47) & ",'" & Cells(S, 48) & "','" & Cells(S, 49) & "')"
    
32. cnn.Execute Sql
    
33. Next S
    
34. MsgBox "数据添加成功！", vbExclamation
    
35. Dim xRs As New ADODB.Recordset
    
36.     Sql = " Select * from list"
    
37.     xRs.Open Sql, cnn, 1, 3
    
38.      Sheet2.Range(Sheet2.Range("A3"), Sheet2.Range("A2").End(xlDown)).EntireRow.Clear
    
39.     Sheet2.Range("A3").CopyFromRecordset xRs
    
40.     xRs.Close
    
41. cnn.Close
    
42. Set cnn = Nothing
    
43. End Sub
    

复制代码

zopey

For i = 3 To Range("A65536").End(xlUp).Row
For Arr_CateNumI = 0 To Arr_CateNumS
If Cells(i, 2).Value <> "&Arr_Cate(0,Arr_CateNumI)&" Then
GoTo next1
ElseIf Cells(i, 2).Value = "&Arr_Cate(0,Arr_CateNumI)&" Then
GoTo next2
End If
next1:
Next Arr_CateNumI
next2:
Next i