Visual Basic - Exportar a txt

Life is soft - evento anual de software empresarial
 
Vista:

Exportar a txt

Publicado por Mariel (4 intervenciones) el 24/06/2010 11:32:39
Que tal amigos...
El problema que hoy se me plantea es el siguiente, soy novata en Visual Basic y debo exportar una consulta a txt... como no puedo darle ciertos parámetros la transformé en tabla.
El tema es que hay datos que se repiten y no debo colocarlos todos en la misma línea... por ej. si la tabla fuera:

nº_dto apellido_nombre prestacion
16235622 Lamas Lorenzo 330101
16235622 Lamas Lorenzo 330103
16235622 Lamas Lorenzo 330129
25243221 Correyero Ignacio 330128
25243221 Correyero Ignacio 330116

Necesito que salgan agrupadas las prestaciones por nº_dto así....

16235622;Lamas Lorenzo
330101
330103
330129
25243221;Correyero Ignacio
330128
330116

Actualmente lo puedo exportar mediante un botón que programé pero me sale así:

16235622;Lamas Lorenzo;330101
16235622;Lamas Lorenzo;330103
16235622;Lamas Lorenzo;330129
25243221;Correyero Ignacio;330128
25243221;Correyero Ignacio;330116

Intenté hacerlo realizando un informe directamente en acces agrupando los datos allí, despues exportar el informe... pero si bien salen agrupados... no se les puede dar formato...
Alguien... sabrá como hacerlo???

Gracias!!!!
Mariel.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Exportar a txt

Publicado por Javier (44 intervenciones) el 17/09/2010 21:52:35
Buenas, crea dos bucles y ves comparando la información , te paso ejemplo que exporta de una db a una lista utiliza dao.

Private Sub Command1_Click()
List1.Clear ' lispia la lista
Dim ant As String variable para almacenar el dato anterior

With Data1.Recordset ' para evitar escribir lo mismo

Do While Not .EOF ' mientras no llegue al fin de la tabla
ant = !nº_dto ' almacenamos el dato actual
List1.AddItem !nº_dto & " " & !apellido_nombre ' añadimos la cabezera

Do While !nº_dto = ant ' entramos en el 2º bucle para imprimir solo la prestacion
List1.AddItem !prestacion ' imprime la prestacion
.MoveNext ' nos movemos
If .EOF Then Exit Sub ' si es el fin de la db salimos
Loop

Loop
End With ' fin de with
End Sub

' suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar