Em princípio, me parece que a solução indicata por MottaMotta seria a mais adequada (no caso de os elementos em listaNotaDHSolColeta
também estarem vindo de uma consulta à base de dados).
Em todo caso, se seu intuito é realizar a consulta em etapas, cada uma delas com um grupo de "n" números de nota, seu ponto de partida é dividir seu array em grupos de "n" elementos. Você pode usar a função abaixo para fazer isso (como não sei o tipo de listaNotaDHSolColeta
, fiz a função genérica, mas poderia também ter usado o tipo Object
):
Function Pacotes(Of T)(lista As IEnumerable(Of T), elementos As Integer) As T()()
Dim dicItens As New Dictionary(Of Integer, T), dicGrupos As New Dictionary(Of Integer, List(Of T)), iGrupo As Integer
For Each item As T In lista
dicItens(dicItens.Count) = item
Next
For Each kvpItem As KeyValuePair(Of Integer, T) In dicItens
iGrupo = kvpItem.Key \ elementos
If Not dicGrupos.ContainsKey(iGrupo) Then
dicGrupos(iGrupo) = New List(Of T)
End If
dicGrupos(iGrupo).Add(kvpItem.Value)
Next
Return dicGrupos.Select(Function(kvp) kvp.Value.ToArray).ToArray
End Function
Você pode utilizá-la assim:
Dim gruposNotaDHSolColeta = Pacotes(listaNotaDHSolColeta, 1000)