Código Vb.Net:
Ver original...
Dim CantTmp as Integer
Dim j as Integer
For i = 0 To undataset.Tables(0).Rows.Count - 1
'rellenamos el valor de los parámetros
CantTmp=undataset.Tables(0).Rows(i)("Cantidad")
For j=0 to CantTmp-1
cmAlta.Parameters("@P").Value = undataset.Tables(0).Rows(i)("Producto").ToString()
cmAlta.Parameters("@C").Value = 1
'realizamos el alta
cmAlta.ExecuteNonQuery()
Next
Next
MessageBox.Show("Se ha Guardado el contenido")
'Cerramos la conexion con la base de datos