Hola amigos.

a ver si me pueden ayudar con el evento clic o dobleclic en filas del datagridview

estoy haciendo un gestor de casos para el area de soporte tecnico de una empresa

Es sencillo, tengo un datagrid con los campos numero de caso, descripcion, fecha de apertura, etc.

y otro formulario en donde hago la edicion de los campos de la bd (access), con la ayuda del bindingnavigator que vb te coloca al arrastrar los campos desde el explorador de origenes de datos al formulario.

Bueno mi duda es: cómo hago para que al hacer un doble clic en una fila (un caso), me lleve al formulario de la edicion del caso (que es donde me muestra todos mis registros del caso en textbox) y porsupuesto me muestre el caso que le di dobleclic en el datagridview

Estare muy agradecido con las personas que me puedan apoyar con esto sinceramente.

Hola AngelBetancourt:

Espero aportar en lo que necesitas, yo trabajo con Visual Studio 2008 con SQl Server 2008.

Este formulario se llama "FrmArticulos"

La cual muestro los datos que ves por medio de otro formulario llamado "Frm_BusArticulos" y lo llamo con este código:

Using Frm As New Frm_BusArticulos
Frm.ShowDialog()
End Using






AHORA, EN ESTE FORMULARIO DE BUSCAR, HE PROGRAMADO EN EL EVENTO DOUBLECLIC DEL DATAGRIDVIEW:

Private Sub DgvArticulo_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DgvArticulos.DoubleClick
Try
If Me.DgvArticulos.Rows.Count <= 0 Then
MessageBox.Show("No hay registro!...", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
My.Forms.FrmArticulos.TxtCodigoArticulo.Text = Me.DgvArticulos.Item("idart", Me.DgvArticulos.CurrentRow.Index).Value.ToStringMy .Forms.FrmArticulos.TxtNombreArticulo.Text = Me.DgvArticulos.Item("Artículo", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtCQuimicaArticulo.Text = Me.DgvArticulos.Item("c_quimica", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.DtpFCompra.Text = Me.DgvArticulos.Item("f_compra", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.DtpFVencimiento.Text = Me.DgvArticulos.Item("f_venc", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtStockUnidad.Text = Me.DgvArticulos.Item("stock_unid", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtStockBlister.Text = Me.DgvArticulos.Item("stock_blis", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtSotckFraccion.Text = Me.DgvArticulos.Item("stock_frac", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtPvp.Text = Me.DgvArticulos.Item("PVPx", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtPvpBlister.Text = Me.DgvArticulos.Item("PVPx Blister", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtPvpFraccion.Text = Me.DgvArticulos.Item("PVPx Fracción", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.CboTipoVenta.Text = Me.DgvArticulos.Item("t_venta", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtIndicacion.Text = Me.DgvArticulos.Item("indicacion", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtPosologia.Text = Me.DgvArticulos.Item("posologia", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtModoDeEmpleo.Text = Me.DgvArticulos.Item("modo_emp", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtContraindicacion.Text = Me.DgvArticulos.Item("contraindicacion", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.TxtImagenArticulos.Text = Me.DgvArticulos.Item("imagen", Me.DgvArticulos.CurrentRow.Index).Value.ToString

'ALMACENO EN UN VARIABLE LA RUTA DE LA IMAGEN PARA LUEGO MOSTRARLO EN UN PICTUREBOX
Dim Ruta As String
Ruta = Me.DgvArticulos.Item("imagen", Me.DgvArticulos.CurrentRow.Index).Value.ToString
My.Forms.FrmArticulos.PbImagenArticulo.Image = System.Drawing.Bitmap.FromFile(Ruta)

'ALMACENO EN CADA VARIBLE LOS ID'S DE LAS TABLAS
Dim cat, forma, prov, pat, clas, tclas As String
cat = Me.DgvArticulos.Item("categoria", Me.DgvArticulos.CurrentRow.Index).Value.ToString
Dim cmd As String = "SELECT * FROM cat_articulo INNER JOIN articulo ON cat_articulo.idcat=articulo.idcat WHERE (cat_articulo.idcat = '" + cat + "')"
cn.Open()
dt = New DataTable
da = New SqlDataAdapter(cmd, cn)
da.Fill(dt)
My.Forms.FrmArticulos.CboCategoriaArticulo.DataBin dings.Clear()
My.Forms.FrmArticulos.CboCategoriaArticulo.DataBin dings.Add("text", dt, "nombre")
My.Forms.FrmArticulos.TxtCodigoCategoria.Text = cat

cn.Close()

forma = Me.DgvArticulos.Item("forma", Me.DgvArticulos.CurrentRow.Index).Value.ToString
Dim cmd2 As String = "SELECT * FROM forma INNER JOIN articulo ON forma.idfor=articulo.idfor WHERE (forma.idfor = '" + forma + "')"
cn.Open()
dt = New DataTable
da = New SqlDataAdapter(cmd2, cn)
da.Fill(dt)
My.Forms.FrmArticulos.CboForma.DataBindings.Clear( )
My.Forms.FrmArticulos.CboForma.DataBindings.Add("t ext", dt, "nombre")
My.Forms.FrmArticulos.TxtCodigoForma.Text = forma
cn.Close()

prov = Me.DgvArticulos.Item("idprov", Me.DgvArticulos.CurrentRow.Index).Value.ToString
Dim cmd3 As String = "SELECT razon FROM proveedor INNER JOIN articulo ON proveedor.idprov=articulo.idprov WHERE (proveedor.idprov = '" + prov + "')"
cn.Open()
dt = New DataTable
da = New SqlDataAdapter(cmd3, cn)
da.Fill(dt)
My.Forms.FrmArticulos.CboProveedor.DataBindings.Cl ear()
My.Forms.FrmArticulos.CboProveedor.DataBindings.Ad d("text", dt, "razon")
My.Forms.FrmArticulos.TxtCodigoProveedor.Text = prov
cn.Close()

pat = Me.DgvArticulos.Item("idpat", Me.DgvArticulos.CurrentRow.Index).Value.ToString
Dim cmd4 As String = "SELECT * FROM patologia INNER JOIN articulo ON patologia.idpat=articulo.idpat WHERE (patologia.idpat = '" + pat + "')"
cn.Open()
dt = New DataTable
da = New SqlDataAdapter(cmd4, cn)
da.Fill(dt)
My.Forms.FrmArticulos.CboPatologia.DataBindings.Cl ear()
My.Forms.FrmArticulos.CboPatologia.DataBindings.Ad d("text", dt, "nombre")
My.Forms.FrmArticulos.TxtCodigoPatologia.Text = pat
cn.Close()

clas = Me.DgvArticulos.Item("idclas", Me.DgvArticulos.CurrentRow.Index).Value.ToString
Dim cmd5 As String = "SELECT * FROM clas_terap INNER JOIN articulo ON clas_terap.idclas=articulo.idclas WHERE (clas_terap.idclas = '" + clas + "')"
cn.Open()
dt = New DataTable
da = New SqlDataAdapter(cmd5, cn)
da.Fill(dt)
My.Forms.FrmArticulos.CboClasificacionT.DataBindin gs.Clear()
My.Forms.FrmArticulos.CboClasificacionT.DataBindin gs.Add("text", dt, "nombre")
My.Forms.FrmArticulos.TxtCodigoClasificacionT.Text = clas
cn.Close()

tclas = Me.DgvArticulos.Item("idtclas", Me.DgvArticulos.CurrentRow.Index).Value.ToString
Dim cmd6 As String = "SELECT * FROM tipo_clas_terap INNER JOIN articulo ON tipo_clas_terap.idtclas=articulo.idtclas WHERE (tipo_clas_terap.idtclas = '" + tclas + "')"
cn.Open()
dt = New DataTable
da = New SqlDataAdapter(cmd6, cn)
da.Fill(dt)
My.Forms.FrmArticulos.CboTipoClasificacionTerapeut ica.DataBindings.Clear()
My.Forms.FrmArticulos.CboTipoClasificacionTerapeut ica.DataBindings.Add("text", dt, "nombre")
My.Forms.FrmArticulos.TxtCodigoTipoClasificacionTe rapeutica.Text = tclas
cn.Close()

'HABILITO Y DESHABILITO LOS BOTONES
My.Forms.FrmArticulos.BtnNuevo.Enabled = False
My.Forms.FrmArticulos.BtnModificar.Enabled = True
My.Forms.FrmArticulos.BtnAnular.Enabled = True
My.Forms.FrmArticulos.BtnCancelar.Enabled = True
My.Forms.FrmArticulos.BtnBuscar.Focus()
Me.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

DISCULPA, QUISE ADJUNTAR LAS IMAGENES A MOSTRARTE, PERO OCURRIO UN ERROR, ACA TE LAS COLOCO, SALUDOS:

FORMULARIO ARTICULOS:
Imageshack - 18935947.jpg

FORMULARIO BUSCAR ARTICULOS:
ImageShack® - Online Photo and Video Hosting