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:
y asi guardo los demas controles'//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
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