Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/10/2006, 03:05
Avatar de Bravenap
Bravenap
 
Fecha de Ingreso: noviembre-2002
Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 21 años, 6 meses
Puntos: 4
Ya está resuelto:

Código:
For Each dr As DataRow In dt.Rows
                    Dim dtN As DataTable
                    If ds.Tables(dr.Item("Nombre")) Is Nothing Then
                        dtN = New DataTable(dr.Item("Nombre"))
                        ds.Tables.Add(dtN)
                        dtN.Columns.Add(New DataColumn("URL", Type.GetType("System.String")))
                        dtN.Columns.Add(New DataColumn("Titulo", Type.GetType("System.String")))
                        dtN.Columns.Add(New DataColumn("Def", Type.GetType("System.String")))
                    End If
                    Dim drN As DataRow = dtN.NewRow
                    drN("URL") = dr("URL")
                    drN("Titulo") = dr("Titulo")
                    drN("Def") = dr("Def")
                    CType(ds.Tables(dr.Item("Nombre")), DataTable).Rows.Add(drN)
                Next
Gracias y un saludo.
__________________
¡¡NO A LA GUERRA!!
Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares!