IDE 认为我需要闭环，但对我来说看起来不错

Question

>IDE 表示 Next for

for i

在"循环浏览文件夹"注释丢失的正下方。

这是我的代码。

Dim strVal As String
    'Loop through Folders
    For i As Integer = 0 To lbFolder.Items.Count - 1
        Dim iText As String = CStr(lbFolder.Items(i))
        Dim partPath As String = lblPath.Text + "" + iText
        Dim pathNum As String = partPath + "1900"
        Dim directory As New DirectoryInfo(pathNum)
        Dim fileArr As FileInfo() = directory.GetFiles() ' Get a reference to each file in that directory.
        ' Display the names of the files.
        Dim xItem As FileInfo
        'loop through files
        For Each xItem In fileArr ' add to listbox
            lblFname.Text = xItem.ToString
            strVal = pathNum & xItem.ToString
            lbFiles.Items.Add(strVal)
        Next
        For j = 0 To lbFiles.Items.Count - 1 'read through files listbox
            Dim FileID, Sequence, Time, Lat, Longitude, Average, Channel As String
            'declaration of filestream to open file
            Dim sr As StreamReader
            'filestream object to open and read file
            Dim fs As FileStream
            Try
                'clearing listbox data toavoid confusion
                ListView1.Items.Clear()
                fs = New FileStream((lbFiles.Items.Item(j)), FileMode.OpenOrCreate)
                'stream reader object to read streamed input
                sr = New StreamReader(fs)
                Dim itm As Object
                'reading line by line
                itm = sr.ReadLine
                While Not itm = Nothing
                    Dim split As String() = itm.Split(New [Char]() {","})
                    FileID = split(0)
                    Sequence = split(1)
                    Time = split(2)
                    Lat = split(3)
                    Longitude = split(4)
                    Average = split(5)
                    Channel = split(6)
                    With ListView1
                        .Items.Add(FileID)
                        .Items(ListView1.Items.Count - 1).SubItems.Add(Sequence)
                        .Items(ListView1.Items.Count - 1).SubItems.Add(Time)
                        .Items(ListView1.Items.Count - 1).SubItems.Add(Lat)
                        .Items(ListView1.Items.Count - 1).SubItems.Add(Longitude)
                        .Items(ListView1.Items.Count - 1).SubItems.Add(Average)
                        .Items(ListView1.Items.Count - 1).SubItems.Add(Channel)
                    End With
                    itm = sr.ReadLine
                End While
                'close stream reader and filestrema object
                sr.Close()
                fs.Close()
            Catch ex As System.Exception
                System.Windows.Forms.MessageBox.Show(ex.Message, "Load Tool Data Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Next j
        lbFiles.Items.Clear()
    Next i
End Sub

我正在使用可视化工作室，当我单击 for i 时，它会显示下一个关闭，但当我运行时出现错误。

我错过了什么？

Answer 1

   Add **xItem** after the Next
   For Each xItem In fileArr ' add to listbox
        lblFname.Text = xItem.ToString
        strVal = pathNum & xItem.ToString
        lbFiles.Items.Add(strVal)
    Next xItem

Answer 2

重新启动IDE，一切运行没有错误。

感谢所有回复的人