1

以下のステートメントで次の行にスキップしたい

For iRow = 0 To dsDiscnt.Tables(0).Rows.Count - 1
     rowDiscnt = dsDiscnt.Tables(0).Rows(iRow)

     If rowdiscnt.Item("x") = "S" Then
         'skip to next row
     Else
         'continue loop
     End If

'do something...
Next

ループ全体を通過せずに次の行にスキップする方法は?

4

2 に答える 2

3

Continue For次のように、必要なステートメントです。

For iRow = 0 To dsDiscnt.Tables(0).Rows.Count - 1
    rowDiscnt = dsDiscnt.Tables(0).Rows(iRow)

    If rowdiscnt.Item("x") = "S" Then
        ' Skip to next iteration of For loop
        Continue For
    Else
        ' Keep doing work in this iteration of the For loop
    End If

    'do something...
Next
于 2013-09-18T03:53:27.737 に答える
0 
For iRow = 0 To dsDiscnt.Tables(0).Rows.Count - 1
     rowDiscnt = dsDiscnt.Tables(0).Rows(iRow)

     If rowdiscnt.Item("x") = "S" Then
         break;//'skip to next row
     Else
         'continue loop
     End If

'do something...
Next

編集

For iRow = 0 To dsDiscnt.Tables(0).Rows.Count - 1
     rowDiscnt = dsDiscnt.Tables(0).Rows(iRow)

     If rowdiscnt.Item("x") = "S" Then
         Continue For;//'skip to next row
     Else
         'continue loop
     End If

'do something...
Next
于 2013-09-18T03:53:25.057 に答える