Copiar DataRow de una tabla de un dataset a otra

[eter_6]

Oye muchacho aquí posteando nomas xD podrías haberlo hecho con un for y te evitas tanta linea...

Dim i,x as integer

For i=0 to x
Dim dr1 As DataRow = Me.ds.Tables(0).NewRow
dr1(i) = ds.Tables(0).Rows(0)(i)
Next

ten en cuenta que 'x' en este caso debe ser 22...

listo xD

en ves de :

dr1(0) = ds.Tables(0).Rows(0)(0)
dr1(1) = ds.Tables(0).Rows(0)(1)
dr1(2) = ds.Tables(0).Rows(0)(2)
dr1(3) = ds.Tables(0).Rows(0)(3)
dr1(4) = ds.Tables(0).Rows(0)(4)
dr1(5) = ds.Tables(0).Rows(0)(5)
dr1(6) = ds.Tables(0).Rows(0)(6)
dr1(7) = ds.Tables(0).Rows(0)(7)
dr1(8) = ds.Tables(0).Rows(0)(8)
dr1(9) = ds.Tables(0).Rows(0)(9)
dr1(10) = ds.Tables(0).Rows(0)(10)
dr1(11) = ds.Tables(0).Rows(0)(11)
dr1(12) = ds.Tables(0).Rows(0)(12)
dr1(13) = ds.Tables(0).Rows(0)(13)
dr1(14) = ds.Tables(0).Rows(0)(14)
dr1(15) = ds.Tables(0).Rows(0)(15)
dr1(16) = ds.Tables(0).Rows(0)(16)
dr1(17) = ds.Tables(0).Rows(0)(17)
dr1(18) = ds.Tables(0).Rows(0)(18)
dr1(19) = ds.Tables(0).Rows(0)(19)
dr1(20) = ds.Tables(0).Rows(0)(20)
dr1(21) = ds.Tables(0).Rows(0)(21)
dr1(22) = ds.Tables(0).Rows(0)(22)

saludos xD