crear celdas con un porcentaje

[guillebomtrasmiti]

he conseguido este código

Dim cantidad As New Integer
Dim porcentaje As New Integer
Dim total As New Integer
Dim pvp As New Integer
Dim totalpvp As New Integer

'For i = 0 To DgGeneraTipo.Rows.Count - 1
porcentaje = CInt((DgGeneraTipo.CurrentRow.Cells(12).Value))
total = CInt(porcentaje * CDbl(TextImporte.Text) / 100)
MessageBox.Show(CStr(total))
'Next
pvp = CInt((DgGeneraTipo.CurrentRow.Cells(6).Value))

totalpvp = CInt(total / pvp)

MessageBox.Show(CStr(totalpvp))


totalpvp me da el número de líneas que se deben crear en la base de datos con el mismo producto pero no se hacerlo?¿?