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)

...