Mostrar el total de las filas de un datagridview en un textbox

[heflox]

no se ha solucionado con tu rspta emmax, sigo con el miso error, mira aca dejo el codigo de mi metodo guardar datos, que despues de guardar deseo que se ejcute el metodo calcular total y es ahi donde se muestra el error, como indique anteriormente cuando ingreso al formulario no m muestra ningun error, el problema es cuando guardo un registro y deseo q de este m muestre su total en un textbox.

Código:

Public Sub guardardatos()
        Dim cn As New SqlConnection(My.Settings.conexJ)
        Dim cmdPres As New SqlCommand("insertar_ingreso", cn)
        Dim cmdDet As New SqlCommand("insertar_detalle_ingreso", cn)
        Dim tr As SqlTransaction = Nothing

        cmdPres.CommandType = CommandType.StoredProcedure
        cmdPres.Parameters.AddWithValue("@coding", 0)
        cmdPres.Parameters.Item("@coding").Direction = ParameterDirection.Output
        cmdPres.Parameters.AddWithValue("@codest", TxtCodEst.Text)
        cmdPres.Parameters.AddWithValue("@codusuario", txtcodusu.Text)
        cmdPres.Parameters.AddWithValue("@totaling", txttotal.Text)
        cmdPres.Parameters.AddWithValue("@fecing", Fec_reg_ing.Value)
        cmdPres.Parameters.AddWithValue("@sit", txtsit.Text)
        cmdPres.Parameters.AddWithValue("@tipo", CboMotivo.SelectedItem)
        cmdPres.Parameters.AddWithValue("@Ob", txtob.Text)



        cmdDet.CommandType = CommandType.StoredProcedure
        cmdDet.Parameters.AddWithValue("@ingreso", 0)
        cmdDet.Parameters.AddWithValue("@coddeta", 0)
        'cmdPres.Parameters.Item("@coddeta").Direction = ParameterDirection.Output
        cmdDet.Parameters.AddWithValue("@medcod", 0)
        cmdDet.Parameters.AddWithValue("@cantidad", 0)
        cmdDet.Parameters.AddWithValue("@lote", 0)
        cmdDet.Parameters.AddWithValue("@regsan", 0)
        cmdDet.Parameters.AddWithValue("@fecVen", 0)
        cmdDet.Parameters.AddWithValue("@pre_op", 0)
        cmdDet.Parameters.AddWithValue("@proce", 0)
        cmdDet.Parameters.AddWithValue("@subtotal", 0)
        cmdDet.Parameters.AddWithValue("@pre_op_d", 0)

        Try
            cn.Open()
            tr = cn.BeginTransaction
            cmdPres.Transaction = tr
            cmdDet.Transaction = tr

            cmdPres.ExecuteNonQuery()
            cmdDet.Parameters.Item("@ingreso").Value = cmdPres.Parameters("@coding").Value
            For i = 0 To DgvDetalle2.Rows.Count - 1

                cmdDet.Parameters.Item("@coddeta").Value = DgvDetalle2.Rows(i).Cells(0).Value
                cmdDet.Parameters.Item("@medcod").Value = DgvDetalle2.Rows(i).Cells(1).Value
                cmdDet.Parameters.Item("@cantidad").Value = DgvDetalle2.Rows(i).Cells(4).Value
                cmdDet.Parameters.Item("@lote").Value = DgvDetalle2.Rows(i).Cells(6).Value
                cmdDet.Parameters.Item("@regsan").Value = DgvDetalle2.Rows(i).Cells(3).Value
                cmdDet.Parameters.Item("@fecVen").Value = DgvDetalle2.Rows(i).Cells(5).Value
                cmdDet.Parameters.Item("@pre_op").Value = DgvDetalle2.Rows(i).Cells(7).Value
                cmdDet.Parameters.Item("@proce").Value = DgvDetalle2.Rows(i).Cells(9).Value
                cmdDet.Parameters.Item("@subtotal").Value = DgvDetalle2.Rows(i).Cells(10).Value
                cmdDet.Parameters.Item("@pre_op_d").Value = DgvDetalle2.Rows(i).Cells(8).Value

                cmdDet.ExecuteNonQuery()

                'MessageBox.Show("Datos guardados exitosamente", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            Next



            tr.Commit()
        Catch ex As Exception
            If tr IsNot Nothing Then
                tr.Rollback()
            End If
            Throw ex
        Finally
            If cn.State = ConnectionState.Open Then
                cn.Close()

            End If
            tr = Nothing
            cmdPres = Nothing
            cmdDet = Nothing
            cn = Nothing
        End Try
    End Sub