Postada em 30/06/2008 09:52 hs
Rapaz.... assim vai ficar complicado, se vc quer tudo em uma unica linha, eu sugiro fazer o seguite:
Declare uma variavel string, e va concatenando na ordem que quer, exemplo, quer todos os itens do primeiro LIst, depois todos do segundo:
Dim Conteudo as string, Item as integer
conteudo = ""
for item = 0 to list1.listcount -1
conteudo = iif(conteudo = "", list1.list(item), conteudo & ", " & list1.list(item)
next
for item = 0 to list2.listcount -1
conteudo = iif(conteudo = "", list2.list(item), conteudo & ", " & list2.list(item)
next
E assim por diante, ou faça com For next aninhados, como no exemplo que te passei primeiro.
E por fim imprima essa variavel.
T+
|
