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