o usuario informa os pedidos, e vai guardando em um listview, dai o relatório tem que trazer da tabela pedidos, os dados destes pedidos, estou acostumado a usar com um unico pedido, agora com varios, como fazer ?

faz o seguinte,

dim lx as long

spedido = ""

for lx = 1 to listview.ListItems.count

        if spedido = "" then

              spedido = listview.ListItems(lx).SubItems(1)   ' subitems seria a coluna q esta o pedido

        else

              spedido = spedido  & "," & listview.ListItems(lx).SubItems(1)   ' subitems seria a coluna q esta o pedido

        end if

next

if rigth(spedido,1) = "," then

spedido = left(spedido,len(spedido)-1)

endif

 

depois na select coloca por exemplo

db.execute "select * from pedidos where pedido IN (" & spedido & ")

 

espero ter ajudado