![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
17/10/2006, 03:05
|
![Avatar de Bravenap](http://static.forosdelweb.com/customavatars/avatar27366_1.gif) | | | Fecha de Ingreso: noviembre-2002 Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 22 años, 2 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! |