问使用Arraylist作为OLEDB查询的筛选器

EN

  Dim NodeFile As New IO.DirectoryInfo(tempMail & tvProgress.SelectedNode.FullPath)
            Dim NodeList As IO.FileInfo() = NodeFile.GetFiles("*.*")
            Dim report As New ArrayList()
            For Each NodeExcl In NodeList
                report.Add(Path.GetFileName(NodeExcl.Name))
            Next

     Try

        Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.aClients & ""
        Dim n As Integer


        For n = 0 To UBound(AllDetails)
            Dim NodeFile As New IO.DirectoryInfo(tempMail & tvProgress.SelectedNode.FullPath)
            Dim NodeList As IO.FileInfo() = NodeFile.GetFiles("*.*")
            Dim report As New ArrayList()
            For Each NodeExcl In NodeList
                report.Add(Path.GetFileName(NodeExcl.Name))
            Next

            '' Need to exclude arraylist from query

            If tvProgress.Nodes.Count = 0 Then Exit Sub

            If AllDetails(n).uName & " - " & AllDetails(n).uCode & " - " & AllDetails(n).uOps = e.Node.Text Then
                lstRequired.DataSource = Nothing
                lstRequired.DataBindings.Clear()

                Dim eSearch As String = AllDetails(n).uCode
                Dim fSearch As String = AllDetails(n).uOps

                da.SelectCommand.Connection.ConnectionString = conn
                da.SelectCommand.CommandText = "SELECT Documents.DocName FROM Documents WHERE (Documents.UnitCode = ?) AND (Documents.OpName = ?) AND Documents.Required = True ORDER BY DocName"
                da.SelectCommand.Parameters.AddWithValue("@p1", eSearch)
                da.SelectCommand.Parameters.AddWithValue("@p2", fSearch)
                da.Fill(dt)
                dt.Rows.Add("Add Additional Requirement")
                lstRequired.DataSource = dt
                lstRequired.DisplayMember = StrConv("DocName", VbStrConv.ProperCase)
                lstRequired.Refresh()

                Dim dl As DataTable = CType(lstRequired.DataSource, DataTable)
                Using sR = New IO.StreamReader(tFiles & UCase("ProgExcluded.txt"))
                    While (sR.Peek() > -1)
                        Dim rows() = dl.Select("DocName = '" + sR.ReadLine + "'")
                        For Each row In rows
                            row.Delete()
                        Next
                        dl.AcceptChanges()
                    End While
                End Using

            End If
        Next

        Exit Sub


    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

            Dim NodeFile As New IO.DirectoryInfo(tempMail & tvProgress.SelectedNode.FullPath)
            Dim NodeList As IO.FileInfo() = NodeFile.GetFiles("*.*")
            Dim report As New ArrayList()

            For Each NodeExcl In NodeList
                report.Add(Path.GetFileName(NodeExcl.Name))
            Next
            Dim newreport As String = String.Join(",", report.ToArray())