/ Published in: VB.NET
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Dim adaptadorNoticias As New DSContenidosTableAdapters.NoticiasTableAdapter Dim noticias As New DSContenidos.NoticiasDataTable Dim conversion As New ContenidosWeb Dim tablaDatos As New DataTable("Articulos") Dim datos As New DataSet() Dim fila As DataRow ' Inicializo la estructura que mostrará las noticias en las páginas tablaDatos.Columns.Add(New DataColumn("Fecha")) tablaDatos.Columns.Add(New DataColumn("Titulo")) tablaDatos.Columns.Add(New DataColumn("Id")) datos.Tables.Add(tablaDatos) ' Obtengo las noticias a incluir en el tablón de anuncios noticias = adaptadorNoticias.ListadoNoticiasPorSeccion(205) ' Las incluyo en el DataSet For i As Integer = 0 To noticias.Count - 1 fila = datos.Tables("Articulos").NewRow fila("Id") = noticias.Item(i).id fila("Titulo") = conversion.ConversionAHTML(noticias.Item(i).Titulo) fila("Fecha") = noticias.Item(i).FechaPublicacion.Day & "/" & noticias.Item(i).FechaPublicacion.Month & "/" & _ noticias.Item(i).FechaPublicacion.Year datos.Tables("Articulos").Rows.Add(fila) Next ' Vinculo el DataSet con el objeto Repeater de la página Repeticion.DataSource = tablaDatos Me.DataBind() adaptadorNoticias.Dispose()