Visual Basic.NET - Ejecutar Dgv_CellClick(sender,e)

Private Sub Dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellClick

	Dim row As DataGridViewRow

	row = dgv.Rows(e.RowIndex)

	Using Frm2 As New frmCaldera

		Frm2._IdCalde = CInt(row.Cells(0).Value)

		Frm2._IdClien = CInt(row.Cells(1).Value)

		Frm2._Nombre = CStr(row.Cells(2).Value)

		Frm2._Factura = CStr(row.Cells(3).Value)

		Frm2._Marca = CStr(row.Cells(4).Value)

		Frm2._Tipo = CStr(row.Cells(5).Value)

		Frm2._Instalacion = CStr(row.Cells(6).Value)

		Frm2._Garantia = CStr(row.Cells(7).Value)

		Frm2._VtoGarantia = CStr(row.Cells(8).Value)

		Frm2._ImporCaldera = CDec(row.Cells(9).Value)

		Frm2._miIva = CInt(row.Cells(10).Value)

		Frm2._Total = CDec(row.Cells(11).Value)

	End Using

End Sub

Sub cargaTexto()

	Using Frm2 As New frmCaldera

		txtIdCalde.Text = Frm2._IdCalde

		txtIdClien.Text = Frm2._IdClien

		txtNombre.Text = Frm2._Nombre

		txtFactura.Text = Frm2._Factura

		txtMarca.Text = Frm2._Marca

		txtTipo.Text = Frm2._Tipo

		txtInstalacion.Text = Frm2._Instalacion

		txtGarantia.Text = Frm2._Garantia

		txtVtoGarantia.Text = Frm2._VtoGarantia

		txtImporCaldera.Text = Frm2._ImporCaldera

		txtIva.Text = Frm2._miIva

		txtTotal.Text = Frm2._Total

	End Using

End Sub

Dgv_CellClick(sender, e)

cargaTexto()

Private Sub Dgv_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgv.SelectionChanged

	'IMPORTANTE: Es aconsejable poner la propiedad SelectionMode del datagridview a: FULLROWSELECT

	If dgv.SelectedRows.Count > 0 Then  'Verifica que hay alguna fila seleccionada.

		Me.txtIdCalde.Text = dgv.Item("IdCalde", dgv.SelectedRows(0).Index).Value

		Me.txtIdClien.Text = dgv.Item("IdClien", dgv.SelectedRows(0).Index).Value

		txtNombre.Text = RetornaCampo("Nombre", "clientes", "IdClien", ObjIni.miClien)

		Me.txtFactura.Text = dgv.Item("Factura", dgv.SelectedRows(0).Index).Value

		Me.txtMarca.Text = dgv.Item("Marca", dgv.SelectedRows(0).Index).Value

		Me.txtTipo.Text = dgv.Item("Tipo", dgv.SelectedRows(0).Index).Value

		Me.txtInstalacion.Text = dgv.Item("Instalacion", dgv.SelectedRows(0).Index).Value

		Me.txtGarantia.Text = dgv.Item("Garantia", dgv.SelectedRows(0).Index).Value

		Me.txtVtoGarantia.Text = dgv.Item("VtoGarantia", dgv.SelectedRows(0).Index).Value

		Me.txtImporCaldera.Text = dgv.Item("ImporCaldera", dgv.SelectedRows(0).Index).Value

		Me.txtIva.Text = dgv.Item("Iva", dgv.SelectedRows(0).Index).Value

		Me.txtTotal.Text = dgv.Item("Total", dgv.SelectedRows(0).Index).Value

	End If

End Sub

Dgv_SelectionChanged(sender,e)