Visual Basic.NET - Problemas con datagridview en una factura

dim iFila as integer=datagridview2.currentcell.rowindex

if iFila>=0

dim fila as datagridviewrow=datagridview2.rows(iFila)

formularioFactura.datagridview1.rows.add(fila)

end if

dim iFila as integer=datagridview2.currentcell.rowindex

if iFila>=0

formulario1.datagridview1.rows.add()

with formulario1.datagridview1.rows(formulario1.datagridview1.rows.count-1)

.cells("indice o nombre d ecolumna").values=datagridview2.item("nombre columna o indice",iFila).value

end with

end if

Public Delegate Sub TraerProducto(product As Producto)            //**Aqui declaro el delegado

 Public Event EnviarProducto As TraerProducto                               //**Aquí declaro un evento que si te fijas bien es del tipo del delegado

//**Aquí selecciono un producto desde un datagridview ***///

******************************************************************

 Private Sub DgvProductos_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgvProductos.CellDoubleClick

        Try

            Dim prod = New Producto

            prod.IdProducto = Convert.ToInt32(Me.DgvProductos.Item(0, Me.DgvProductos.CurrentRow.Index).Value)

            prod.NombreProducto = Me.DgvProductos.Item(1, Me.DgvProductos.CurrentRow.Index).Value.ToString

            prod.Precio = Convert.ToDecimal(Me.DgvProductos.Item(2, Me.DgvProductos.CurrentRow.Index).Value)

            prod.Iva = Convert.ToDecimal(Me.DgvProductos.Item(3, Me.DgvProductos.CurrentRow.Index).Value)

            RaiseEvent EnviarProducto(prod)              //*******Aqui envio el producto seleccionado mediante un evento y cierro el formulario

            Me.Close()

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

//**Aca en el formulario de factura llamo al formulario de buscar productos de esta manera fíjate:

*********************************************************************************************************

Private Sub BtnBuscarProducto_Click(sender As Object, e As EventArgs) Handles BtnBuscarProducto.Click

        Dim FBusca As New FrmBuscarProductos

        AddHandler FBusca.EnviarProducto, AddressOf MostrarProducto //** Aqui especifico qué método será el que procese los datos que

        FBusca.Show()                                                                                           //** lleguen desde el otro formulario

    End Sub

//****Estoy adjuntando un ejemplo del uso de delegados el proyecto está hecho con VB en su Versión 2013.

//** El proyecto consta de 2 formularios: Factura y BuscarProductos, asimismo 3 clases:Factura,DetalleFactura y Producto.

//**En el formulario de buscarproductos se crea una lista con 50 productos en un for y se muestra en un datagridview.

//**Los productos tienen el nombre PRODUCTO 1, PRODUCTO 2, Y ASÍ HASTA PRODUCTO 50, éste formulario permite hacer una  //**búsqueda tipo las búsquedas LIKE que se usan para buscar por nombres, pero para que vean que funciona tienen que escribir //**producto, espacio y pueden poner el 1, 2, 3 o 4 para que vean que se seleccionan todos los que contengan el 1, es decir 1,10,11,12, //**etc.

//**En el formulario de factura hay un textbox Producto y un botón BtnBuscarProducto que tiene 3 puntos suspensivos (...), al darle clic en //**ese botón les mostrará el formulario de búsqueda de productos, en el cual escogen su producto y le dan doble clic y enviarán el //**producto hacia el datagridview del formulario Factura.

//*************En el datagridview del formulario Factura, pueden agregar valores al campo Cantidad y hará el cálculo hacia la columna //**importe **//