hola a todos recurro aca por q tengo tremendo problema espero alguien pueda ayudarme con lo siguiente:
tengo un formulario en el cual he puesto 1 tabcontrol con 2 tambpage en cada uno tengo información diferente.
estoy cargando ademas datos desde SQL server 2008 y de las tablas a los controles y delos controles a las tablas
EL PROBLEMA ES: que deseo mostrar en los controles (textbox, combobox y un datagridview) la información de las tablas que son mas de 2 es decir la información esta en varias tablas. que sea referente o consecuente con el dato de un campo en el otro tabpage al q estoy parado.
la información es así:
tabpage1 = cirugías
tabpage2 = pacientes
ahora la cuestion es q para guardar y cargar los datos estoy usando las propiedades del bindinnavigator
hago asi:
Código:
'estos son los binding source q uso para los 2 tabpages
Private customersBindingSource As New BindingSource()
Dim PACIENTES As New Conexiones
Private customersBindingSource_cirugia As New BindingSource()
Dim CIRUGIA As New Conexiones
asi cargo los combobox y este tiene el medio experimento q estoy haciendo para solucionar lo que les pido pero no me ha funcionado y no se si voy bien
Código:
'//LLENAR EL COMBOBOX CON DATOS DE OTRA TABLA:::::::::::::::::::::::::::::
'TIPO de indentificacion:
Public Function RProc(ByVal codigo As String) As Integer
Dim DProc As New Conexiones
DProc.Consultar("SELECT * FROM Procedimiento WHERE CodProcedimiento ='" & auxnombre & "'", "", "Procedimiento")
cbxprocedimto.DataSource = DProc.Eldataset.Tables("Procedimiento")
cbxprocedimto.DisplayMember = "DescProcedimiento"
cbxprocedimto.ValueMember = "CodProcedimiento"
End Function
y asi guardo los demas controles
el detalle esq para mostrar todo de nuevo en los campos y ser recorridos por el bindinnavigator lo hago con su propiedad asi:
y no se si al hacer esto pueda solucionar mi problema de cargar la informacion en el tabpage de cirugias como lo deseo haciendo referencia a u nvalor en el otro tabpage el de pacientes
DgvCirugias.DataSource = bdncirugias.BindingSource
Código:
Sub cirugiassub()
'Preparar la consulta
Dim CSel As String = "SELECT * FROM Cirugias"
CIRUGIA.Consultar(CSel, "", "Cirugias")
Me.bdncirugias.BindingSource = Me.customersBindingSource_cirugia
Me.customersBindingSource_cirugia.DataSource = CIRUGIA.Eldataset.Tables("Cirugias")
CIRUGIA.Editar()
DgvCirugias.DataSource = bdncirugias.BindingSource
''// LLENAR LAS TABLAS CON LA INFORMACION QUE TIENEN LOS CONTROLES
'Me.txtnompaciente.DataBindings.Add(New Binding("Text", Me.customersBindingSource_cirugia, "NomPaciente", True))
Me.txtpago.DataBindings.Add(New Binding("Text", Me.customersBindingSource_cirugia, "Pago", True))
Me.txthora.DataBindings.Add(New Binding("Text", Me.customersBindingSource_cirugia, "Hora", True))
Me.txtfechaprog.DataBindings.Add(New Binding("Text", Me.customersBindingSource_cirugia, "FechaProg", True))
Me.txtfechaconfirm.DataBindings.Add(New Binding("Text", Me.customersBindingSource_cirugia, "FechaConfirm", True))
Me.txtprequirurgica.DataBindings.Add(New Binding("Text", Me.customersBindingSource_cirugia, "Prequirurgica", True))
Me.txttiempo.DataBindings.Add(New Binding("Text", Me.customersBindingSource_cirugia, "TiempoEstimado", True))
espero hacerme entender... hace parte de mi tesis y estoy bloqueado ya no se q hacer ayuda porfavor