Utilizar un Datagrid con campos enlazados a distintas tablas
Saludos,
¿ C贸mo se puede utilizar un DataGrid que visualice una columna como si fuera un DBCombo enlazandome dos tablas ?
es decir, tengo una tabla TABLA1 con datos que son las referencias a registros de otra tabla TABLA2, tales como 1,2,3 ...
Necesito que cuando visualizo los datos de la TABLA1 mediante un Datagrid, los campos que tengan referencias a TABLA2 muestren los registro de la TABLA2 y no las referencias de la TABLA1.
Ejemplo:
TABLA1 TABLA2
Nombre ref ref apellidos
------------------- --------------------
Juan 1 1 Sanchez
Jose 2 2 Rod铆guez
El Datagrid deber谩 de mostrarme:
-------------------------------
Juan Sanchez
-------------------------------
Jose Rodr铆guez
No quiero hacerlo a trav茅s de consultas JOIN en SQL, ¿alguien me puede ayudar?
Muchas Gracias,
Yeray
¿ C贸mo se puede utilizar un DataGrid que visualice una columna como si fuera un DBCombo enlazandome dos tablas ?
es decir, tengo una tabla TABLA1 con datos que son las referencias a registros de otra tabla TABLA2, tales como 1,2,3 ...
Necesito que cuando visualizo los datos de la TABLA1 mediante un Datagrid, los campos que tengan referencias a TABLA2 muestren los registro de la TABLA2 y no las referencias de la TABLA1.
Ejemplo:
TABLA1 TABLA2
Nombre ref ref apellidos
------------------- --------------------
Juan 1 1 Sanchez
Jose 2 2 Rod铆guez
El Datagrid deber谩 de mostrarme:
-------------------------------
Juan Sanchez
-------------------------------
Jose Rodr铆guez
No quiero hacerlo a trav茅s de consultas JOIN en SQL, ¿alguien me puede ayudar?
Muchas Gracias,
Yeray
para enlazar un datacombo en una griilla, en la grilla del campo a enlazar en la pesta帽a dise帽o le dices en el check sea un boton y luego procedes con el siguiente codigo:
'en caso de error oculta el combo
On Error GoTo Error_Handler
Dim gcol As MSDataGridLib.Column
Set gcol = dtgConsulta.Columns(dtgConsulta.Col)
If gcol.Caption = " Estado" And dtgConsulta.CurrentCellVisible Then
'situa el combobox dentro de la columna Estado si es la
'columna actual y si se encuentra visible
cmbEstado.Move dtgConsulta.Left + gcol.Left, _
dtgConsulta.Top + dtgConsulta.RowTop(dtgConsulta.Row), gcol.Width
cmbEstado.ZOrder
cmbEstado.SetFocus
cmbEstado.Text = gcol.Text
' fmeObserva.Visible = True
Exit Sub
End If
Error_Handler:
'en todos los demas casos, oculta el combobox.
cmbEstado.Move -15000
If dtgConsulta.Visible Then dtgConsulta.SetFocus
sin enbargo me escribes para ayudarte mas a fondo
'en caso de error oculta el combo
On Error GoTo Error_Handler
Dim gcol As MSDataGridLib.Column
Set gcol = dtgConsulta.Columns(dtgConsulta.Col)
If gcol.Caption = " Estado" And dtgConsulta.CurrentCellVisible Then
'situa el combobox dentro de la columna Estado si es la
'columna actual y si se encuentra visible
cmbEstado.Move dtgConsulta.Left + gcol.Left, _
dtgConsulta.Top + dtgConsulta.RowTop(dtgConsulta.Row), gcol.Width
cmbEstado.ZOrder
cmbEstado.SetFocus
cmbEstado.Text = gcol.Text
' fmeObserva.Visible = True
Exit Sub
End If
Error_Handler:
'en todos los demas casos, oculta el combobox.
cmbEstado.Move -15000
If dtgConsulta.Visible Then dtgConsulta.SetFocus
sin enbargo me escribes para ayudarte mas a fondo
