Agregar una fila un DataSet

[CarlosAndres]

¿Como puedo agregar un DataRow que ha sido creado desde una función a un DataSet que estoy creando?. (lo he intentado, pero aparece algo así como el DataRow pertenece a otra tabla)

Usaría el método NewRow() del mismo DataSet, pero el DataRow ya contiene la información que necesito, lo copiaría al nuevo DataRow, pero como cambia laforma aparece el error.

[Oberon]

Te mando mi codigo talvez te sirve [email protected]

Protected Sub INSERTAR(ByVal sender As Object, ByVal e As System.EventArgs)
Dim dr As DataRow = dslocal.tables("Productos").NewRow
Dim i, j As Integer
Dim iCodigo As String
Dim iDescripcion As String
Dim iPrecio As Integer

i = 0
For j = 0 To gvCafeteria.Rows.Count - 1
iCodigo = gvCafeteria.Rows(j).Cells(0).Text
iDescripcion = gvCafeteria.Rows(j).Cells(1).Text
iPrecio = gvCafeteria.Rows(j).Cells(2).Text

Dim idr As DataRow = dslocal.tables("Productos").NewRow

idr("Codigo") = iCodigo
idr("Descripcion") = iDescripcion
idr("Precio") = iPrecio
InsertarNuevaFila(idr, i)
i += 1
Next

dr("Codigo") = CLAVE.Text
dr("Descripcion") = NOMBRE.Text
dr("Precio") = EDAD.Text
dslocal.Tables("Productos").Rows.Add(dr)

gvCafeteria.DataSource = dslocal
gvCafeteria.DataBind()

Public Function Estructura()
Dim ds As New DataSet
ds.Tables.Add("Productos")
ds.Tables("Productos").Columns.Add("Codigo")
ds.Tables("Productos").Columns.Add("Descripcion")
ds.Tables("Productos").Columns.Add("Precio")
Return ds
End Function

Public Sub InsertarNuevaFila(ByVal Fila As DataRow, ByVal i As Integer)
Me.dslocal.Tables("Productos").Rows.InsertAt(Fila, i)
gvCafeteria.DataSource = dslocal
Me.gvCafeteria.DataBind()
End Sub