Datatable

Imports System.Xml

Imports System.IO

Public Class semana8

Sub box()

Dim dt As New DataTable("testtable")

dt.Columns.Add("id_actividad", GetType(String))

dt.Columns.Add("url_actividad", GetType(String))

dt.Columns.Add("nom_actvidad", GetType(String))

dt.Columns.Add("descripcion_actividad", GetType(String))

dt.Columns.Add("entra_actividad", GetType(String))

With grilla

.DataSource = dt

.AllowUserToAddRows = True : .AllowUserToDeleteRows = True

.AllowUserToOrderColumns = False : .AllowUserToResizeRows = True

End With

End Sub

Sub texto(ByVal nom As String)

Dim data As String = String.Empty

For Each fila As DataGridViewRow In grilla.Rows

data += "n° actividad: " & fila.Cells(0).Value + "° , nombre Actividad: " &

fila.Cells(1).Value + ", Descripcion actividad : " &

fila.Cells(3).Value + ", N° Sala para la actividad: " &

fila.Cells(4).Value + "° " + Environment.NewLine

Next

Dim sw As New System.IO.StreamWriter("C:\Semana8\" & nom)

sw.Write(data)

sw.Close()

MessageBox.Show("creado", "mensaje")

End Sub

Sub cargar(ByVal nom As String)

Dim dt As New DataTable

dt.ReadXml("actividad.xml")

grilla.DataSource = dt

End Sub

Sub guardar(ByVal nom As String)

Dim dt As DataTable = CType(grilla.DataSource, DataTable)

dt.AcceptChanges()

dt.WriteXml("C:\Semana8\" & nom, System.Data.XmlWriteMode.WriteSchema, False)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim xml_Archivo As XmlReader

xml_Archivo = XmlReader.Create("actividad.xml")

Dim dataset As New DataSet

dataset.ReadXml(xml_Archivo)

grilla.DataSource = dataset.Tables(0)

cargar("actividad.xml")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

texto("actividades_alfredo_mamani.txt")

...