Ayuda a terminar mi busqueda vb.net

[carlos_2580_4]

HOLA A TODOS!!!

ESTOY realizando un sistema en VB.NET EL PROBLEMA ES EL SIGUIENTE:

En mi base de datos de Acces Tengo dos tablas una MARCA y la otra PRODUCTO estas estan relacionadas POR EL COD_MARCA.

EN MI FORMULARIO TENGO un combobox que muestra el campo Nombre de la TABLA MARCA y me guarda el COD_MARCA.
HASTA ahi todo bien!!!!!!!!!!

AHORA el problema lo tengo en la busqueda de la Tabla PRODUCTO.
Cuando realizo la busqueda en el Textbox busco por COD_PRODUCTO Y SE SELECCIONA el dato en el datagridview con ese codigo, lo que deseo es que cuando yo haga a click en el dato seleccionado del datagridview PASEN todos ESOS datos a los textbox y combobox que tiene el formulario (campos de la tabla).

El detalle seria que cuando carge todos de los datos de esos campos al aver hecho click en el datagriview me muestre el NOMBRE de la marca mas no el CODIGO_MARCA que guarde al principio.

ESPERO QUE ME PUEDAN AYUDAR GRACIAS!!!!!!

[netsistemas]

Te adjunto parte de mi código en un proyecto del cual puedes tomas ideas.
Veras cosas raras (como un OR TRUE).Eso lo tengo por temas de depuración, pero supongo que sabras ver lo interesante. Ahora se entiende mucho mejor tu pregunta.

Private Sub BajarDatosDeGridADetalle()
' Dim Valor As String
' Dim Col As Integer = Me.Grid.CurrentCell.ColumnIndex
' For Each row As DataGridViewRow In Me.Grid.Rows
' Valor = row.Cells(Col).Value
' Next
Try

If MisSeguimientos Or True Then
If Grid.Rows.Count = 0 Then
LimpiarTXT()
Else
SetTabla(Grid.CurrentRow.Cells("Tabla").Value & "")
'para forzar el change y así la busquda
txtCodigo.Text = ""
txtCodigo.Text = Grid.CurrentRow.Cells("ValorRegistro").Value & ""



lblResumen.Tag = Grid.CurrentRow.Cells("Registro").Value & ""
txtResumen.Text = Grid.CurrentRow.Cells("Resumen").Value & ""
txtAsunto.Text = Grid.CurrentRow.Cells("Asunto").Value & ""
'ComboEstablecerValor(ComboAsuntos, Grid.CurrentRow.Cells("TipoAsunto").Value & "")
ComboAsuntos.Text = Grid.CurrentRow.Cells("TipoAsunto").Value & ""


'ComboEstablecerValor(ComboAcciones, Grid.CurrentRow.Cells("TipoAccion").Value & "")
ComboAcciones.Text = Grid.CurrentRow.Cells("TipoAccion").Value & ""
Dim FP As String
FP = Grid.CurrentRow.Cells("FechaPrevista").Value & ""
If FP = "" Then
FechaPrevisto.Value = Now
FechaPrevisto.Checked = False
Else
FechaPrevisto.Value = FP
FechaPrevisto.Checked = True
End If
Dim St As String
St = Grid.CurrentRow.Cells("UsuarioAtiende").Value & ""
ComboUsuarios.Text = St
txtFichero.Text = Grid.CurrentRow.Cells("Fichero").Value & ""


FP = Grid.CurrentRow.Cells("FechaCierre").Value & ""
If FP = "" Then
FechaCierre.Value = Now
Else
FechaCierre.Value = FP
End If


FechaCierre.Checked = clsUtiles.ToBoolean(Grid.CurrentRow.Cells("Cerrado ").Value)

End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
cmdGrabar.Visible = False
End Sub

[jonathan_2148]

Muchas gracias por tu respuesta probare tu codigo y luego te cuento como me fue y si es que tenga alguna duda te la hare saber....

[jonathan_2148]

Ola NetSistemas, me sigue enviando el codigo de la marca lo que yo quiero es que me envie el nombre de la marca... Ayudame a solucionar ese problema..