Cita:
Iniciado por CEB_ROJO 
Te comento Erick, el tema pasa por una edición de datos de la tabla MoviProductos a una serie de Combos y Cajas de Texto que tengo en el Form, entre esos datos a editar hay un valor numérico que como te dije Si o Si coincide con alguno del campo IdProducto de la Tabla Productos.
Bueno, para ser un poco mas explícito, lo que yo hago al momento de dar un ALTA en la tabla MoviProductos, guardo en ella solo el código ("IdProducto") que corresponde a una determinada DESCRIPCIÓN de producto.
En definitiva lo que pretendo es que cuando edito y el combo carga el valor numérico, me traiga en el otro combo la descripción de ese producto que se encuentra alojada en la tabla "Productos".
Osea, que de acuerdo al número que tenga el combo1, me crgue la descripción en el combo2, (Vuelvo a insistir, que está en la otra tabla).
Vuelvo a agradecerte la predisposición.
Un abrazo.
Disculpá, aquí te paso el código que utilizo para cargar los combos desde la Tabla Productos. (En un combo se carga el Código del Producto y en el otro su correspondiente Descripción). Esto anda perfecto cuando solo lo que tengo que hacer es cargarlos con los datos de la tabla productos. (Esto está en un Módulo)
Public Sub CargaComboMovDiario_Producto()
Dim DaProd As SqlDataAdapter
Dim DsProd As DataSet
Dim CselProd As String = "SELECT * FROM tbl_Productos ORDER By Producto"
SistMoviClientesConect = New SqlConnection(Cs)
DaProd = New SqlDataAdapter(CselProd, SistMoviClientesConect)
DsProd = New DataSet
DsProd.Clear()
DaProd.Fill(DsProd, "tbl_Productos")
Try
With frmMovimientoDiario
.cmbProducto.DataSource = DsProd.Tables("tbl_Productos")
.cmbCodProducto.DataSource = DsProd.Tables("tbl_Productos")
.cmbProducto.DisplayMember = DsProd.Tables("tbl_Productos").Columns(1).ToString
.cmbCodProducto.DisplayMember = DsProd.Tables("tbl_Productos").Columns(0).ToString
.cmbProducto.ValueMember = DsProd.Tables("tbl_Productos").Columns(0).ToString
.cmbCodProducto.ValueMember = DsProd.Tables("tbl_Productos").Columns(0).ToString
.cmbCodProducto.SelectedValue = .cmbProducto.SelectedValue
.cmbProducto.SelectedValue = .cmbCodProducto.SelectedValue
.cmbProducto.SelectedIndex = -1
End With
Catch ex As Exception
MessageBox.Show("Error " & Err.Number.ToString & vbCrLf & ex.Message)
End Try
SistMoviClientesConect.Close()
End Sub