Ver Mensaje Individual
  #4 (permalink)  
Antiguo 06/09/2012, 08:57
Avatar de Dradi7
Dradi7
 
Fecha de Ingreso: junio-2008
Ubicación: Peru - Lima
Mensajes: 1.518
Antigüedad: 16 años, 5 meses
Puntos: 220
Respuesta: Guardar txt modificado en un datagridview

Cita:
Iniciado por karlosc Ver Mensaje
Amigos del foro eh intentado con este codigo
Private Sub GuardarToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
Dim Guardar As New StreamWriter("d:\Archivos de programa\log\especial.dat")
Guardar.Write(DataGridView1)
End Sub

se crea el archivo especial.dat pero al verificar su contenido esta completamente vacio.
si alguien tiene alguna sugerencia se lo agradeceria.

Saludos,
Pero como vas a guardar asi!!! no te das cuenta que el DatagridView es un Objeto lo que tienes que hacer es recorrer manualmente cada fila del DatagridView para poder guardarlo

Código vb:
Ver original
  1. ' GENERANDO ALGUNAS VARIABLES UTILES
  2.        Const DEL As String = ";"
  3.         Const TXT As String = "C:\www\exportado.txt"
  4.  
  5.         ' GERENANDO EL ARCHIVO
  6.        Using f As New IO.StreamWriter(TXT, True)
  7.  
  8.             ' AGREGANDO LAS COLUMNAS
  9.            Dim col As String = ""
  10.             For Each c As DataGridViewColumn In DataGridView1.Columns
  11.                 col &= c.HeaderText & DEL
  12.             Next
  13.             ' AGREGANDO LAS FILAS
  14.            Dim row As String = ""
  15.             For Each r As DataGridViewRow In DataGridView1.Rows
  16.                 For Each c As DataGridViewColumn In DataGridView1.Columns
  17.                     row &= Convert.ToString(r.Cells(c.HeaderText).Value) & DEL
  18.                 Next
  19.                 row &= Environment.NewLine
  20.             Next
  21.  
  22.             'AGREGANDO LA INFORMACION
  23.            f.WriteLine(col)
  24.             f.WriteLine(row)
  25.  
  26.             'ABRIENDO EL ARCHIVO
  27.            Process.Start(TXT)
  28.  
  29.         End Using
__________________
La clave de todo triunfador es eliminar todas sus excusas y sus limitaciones