Código vb:
Ver originalPrivate Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Try
Dim dg As DataGridView = CType(sender, DataGridView)
TbNombreProd.Text = CStr(dg.Rows(e.RowIndex).Cells(e.ColumnIndex).Valu e)
TbUnidades.Text = CStr(dg.Rows(e.RowIndex).Cells(e.ColumnIndex).Valu e)
Dim dtRow As DataRow
dtRow = midataset.Tables("Productos").NewRow
dtRow("NomProducto") = TbNombreProd.Text
dtRow("NUnidades") = TbUnidades.Text 'ejemplo otras filas
midataset.Tables("Productos").Rows.Add(dtRow)
Catch
End Try
End Sub
otra prueba perdonar