Skip to main content
replaced http://pt.stackoverflow.com/ with https://pt.stackoverflow.com/
Fonte Link

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)

Em princípio, me parece que a solução indicata por Motta 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)

Em princípio, me parece que a solução indicata por Motta 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)
Fonte Link
VBobCat
  • 394
  • 2
  • 12

Em princípio, me parece que a solução indicata por Motta 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)