Loop de Consultas Simultâneas

[hudsonfilipee 0]

Olá pessoal!

 

Estou precisando de uma ajuda para desenvolver um loop, funcionaria da seguinte forma:

 

Tenho um form aqui com alguns filtros em checkedlistbox alimentados por uma consulta sql.

 

Aqui funciona tranquilo, quando faço as seleções e executo a consulta para gerar um relatório específico, o que eu preciso fazer agora é que quando o usuário selecionar mais de uma opção do chekcedlistbox, ative um loop que gere essas opções marcadas em arquivos diferentes, creio que seja possível por meio de um loop, mas não estou conseguindo montar uma sistemática para que as opções selecionadas gerem arquivo distintos.

 

Por exemplo:

 

Em um filtro escolho uma fruta, e no outro escolho as variações da fruta que escolhi, e ao clicar no button gerar, eu receba arquivos separados pelas variações da fruta que escolhi.

 

Estou tentando montar o código aqui, se eu conseguir antes, posto aqui!

 

Desde já agradeço pela ajuda!

 

 

[KhaosDoctor 242]

Então, você vai ter que fazer um loop pelos valores das variações, esses valores ficam armazenados em arrays?

[hudsonfilipee 0]

Olá Khaos!

Consegui desenvolver o código, segue abaixo:

Public Sub LoopSimultaneo()

For i = 0 To CheckedListBox1.Items.Count - 1

CheckedListBox1.SetItemChecked(i, True)

For Each index In CheckedListBox1.CheckedItems

strSelected = strSelected & CheckedListBox1.GetItemText(index).ToString() & vbCrLf

Next

MinhaConsulta()

CheckedListBox1.SetItemChecked(i, False)

Next

MsgBox("Procedimento concluído! ")

End Sub

Muito obrigado pela ajuda!