sábado, 25 de julio de 2020

Pantalla de mantenimiento con campos asociados

Hace tiempo publique como enlazar y traducir campos desde una base de datos a una pantalla de formulario de mantenimiento de datos de visual basic. 
Ahora vamos a ampliar un poco más los conceptos y vamos a ver cómo hacer un enlace (binding) a otra tabla similar a un INNER JOIN de Oracle pero desde el código de Visual Basic. También veremos cómo posicionar en el DataGridView  las columnas donde deseemos independientemente de su orden de carga.

Finalmente añadiremos una sub-pantalla para rellenar dos campos de mantenimiento  desde otra pantalla con combos anidadas.

La pantalla de mantenimiento será una pantalla sencilla con un grid, cuatro campos de filtrado y mantenimiento, los botones Alta, Baja, Modificación. Aceptar, Cancelar y finalmente un botón que nos llevará a la sub-pantalla con dos combos anidadas para la edición de los dos campos nivel 1 y nivel 2.

En el form load indicamos la asociación con los botones de Alta, Baja y Modificación.

Mantenimiento de campos con VB
Fotos similares



Private Sub frmCamposaAsociados_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.grdResult.DataSource = bs

        txtColumna.MaxLength = 40

        CamposAsociados()
        btnModificar.Visible = IIf(ObjetosPermitidos.ContainsKey("btnModificar"), True, False)
        btnBaja.Visible = IIf(ObjetosPermitidos.ContainsKey("btnBaja"), True, False)
        btnAlta.Visible = IIf(ObjetosPermitidos.ContainsKey("btnAlta"), True, False)

        cboDataSource.Text = gDataSource
        btnCombosAnidadas.Enabled = False
End Sub

Definimos un procedimiento donde leemos de la Base de Datos de Oracle y hacemos el enlace (binding) entre nuestra pantalla y la base de datos.

Sub CamposAsociados()

        Dim tb As DataTable
        Dim srSQL As StreamReader
        Dim strConsulta As String
        Dim cmdbuilder As OleDbCommandBuilder

        tb = New DataTable

        'Repeticion si no es la primera vez es que se ha llamado desde el mantenimiento y antes de cargarse debe borrarse la grid
        If Not bolPrimeraVez Then
            ds.Tables("CamposAsociados").Clear()
        End If
        '***********************

        strStartupPath = My.Application.Info.DirectoryPath
        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCamposAsociados".sql")
        strConsulta = srSQL.ReadToEnd
        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)
        dA.SelectCommand = cmdPD
        cmdbuilder = New OleDbCommandBuilder(dA)
        dA.Fill(ds, "CamposAsociados")

        If Not bolPrimeraVez Then
            Exit Sub
        End If

        bolPrimeraVez = False

        'Codigo nuevo para primer campo asociado
        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCampoAso1.sql")
        strConsulta = srSQL.ReadToEnd
        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)
        dA.SelectCommand = cmdPD
        dA.Fill(ds, "CampoAso1")

        cboLevel1.ValueMember = "COD_CAMPO1"
        cboLevel1.DisplayMember = "DES_CAMPO1"
        cboLevel1.DataSource = ds.Tables("CampoAso1").DefaultView

        'Codigo nuevo para primer campo asociado
        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCampoAso2.sql")
        strConsulta = srSQL.ReadToEnd
        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)
        dA.SelectCommand = cmdPD
        dA.Fill(ds, "CampoAso2")

        cboLevel1.ValueMember = "COD_CAMPO_SEC2"
        cboLevel1.DisplayMember = "DES_CAMPO2"
        cboLevel1.DataSource = ds.Tables("CampoAso2").DefaultView

      
        'Código para definir las relaciones con las tablas de los campos asociados ojo notar 'que COD_CAMPO1 se refiere a una columna de cada tabla, es decir COD_CAMPO1 de Tabla 'Relacionada y COD_CAMPO1 de tabla principal. Esto en la simulación por código del INNER 'JOIN

        ds.Relations.Add("CampoAso1_Relacion", ds.Tables("CampoAso1").Columns("COD_CAMPO1"),
ds.Tables("CamposAsociados").Columns("COD_CAMPO1"))

     ds.Relations.Add("CampoAso2_Relacion",ds.Tables("CampoAso2").Columns("COD_CAMPO_SEC2"), ds.Tables("CamposAsociados").Columns("COD_CAMPO_PRINC2"))

    
        Dim oNivel1 As DataColumn = New DataColumn
        oNivel1.DataType = System.Type.GetType("System.String")
        oNivel1.ColumnName = "CampoAso1"
        oNivel1.Expression = "Parent(CampoAso1_Relacion).DES_CAMPO1"
        ds.Tables(Tabla).Columns.Add(oNivel1)

        Dim oNivel2 As DataColumn = New DataColumn
        oNivel2.DataType = System.Type.GetType("System.String")
        oNivel2.ColumnName = "CampoAso2"
        oNivel2.Expression = "Parent(CampoAso2_Relacion).DES_CAMPO2"
        ds.Tables(Tabla).Columns.Add(oNivel2)

      'Aquí fuerzo de nuevo la select principal para que no me de error al realizar 'operaciones con el formulario una vez he cargado el data GridView
        dA.SelectCommand = New OleDb.OleDbCommand("SELECT  COD_ID, DES_PRINCIPAL, COD_CAMPO1, COD_CAMPO_PRINC2 FROM PROPIETARIO.TABLA_PRINCIPAL", cnxPD)

        dA.UpdateCommand = cmdbuilder.GetUpdateCommand()
        dA.DeleteCommand = cmdbuilder.GetDeleteCommand()
        dA.InsertCommand = cmdbuilder.GetInsertCommand()

        Try

            bs.DataSource = ds.Tables(Tabla)

       'Aquí hacemos el binding de los campos de la base de datos con los controles del formulario

            Me.txtColumna.DataBindings.Add(New Binding("Text", bs, "COD_ID"))
            Me.txtDescripcion.DataBindings.Add(New Binding("Text", bs, "DES_PRINCIPAL"))
            Me.cboLevel1.DataBindings.Add(New Binding("SelectedValue", bs, "COD_CAMPO1"))
            Me.cboLevel2.DataBindings.Add(New Binding("SelectedValue", bs, "COD_CAMPO_PRINC2"))
          
         
            grdResult.Columns(0).MinimumWidth = 50
            grdResult.Columns(1).MinimumWidth = 50  'Descripcion
            grdResult.Columns(2).MinimumWidth = 30  'Campo1
            grdResult.Columns(3).MinimumWidth = 200 'Campo2
        
          
            grdResult.Columns(0).HeaderText = "Identificador"
            grdResult.Columns(1).HeaderText = "Descripción"
            grdResult.Columns(2).HeaderText = "Campo asociado 1"
            grdResult.Columns(3).HeaderText = "Campo Asociado 2"

            grdResult.Refresh()

        Catch ex As Exception
        End Try
 End Sub


Las SELECT principal será de este estilo:


SELECT  COD_ID,  DES_PRINCIPAL, COD_CAMPO1, COD_CAMPO_PRINC2  FROM PROPIETARIO.TABLA_PRINCIPAL

Y las de las tablas secundarias serán así:

SELECT COD_CAMPO1, DES_CAMPO1 FROM PROPIETARIO.TABLA_SEC1

SELECT COD_CAMPO_SEC2, DES_CAMPO2 FROM PROPIETARIO.TABLA_SEC2

Definición del botón para las altas.

Private Sub btnAlta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlta.Click
   
        grbDetalle.Enabled = True
        grbBuscar.Enabled = False
        btnCombosAnidadas.Enabled = False
        drEdit = bs.AddNew()
        bs.MoveLast()
 
        grdResult.Refresh()
End Sub

Definición del botón para las bajas.

Private Sub btnBaja_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaja.Click

        Dim drv As DataRowView
        Dim b As Integer
       
        Try

            If MsgBox("¿Esta usted seguro que desea borrar este registro?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmación de Baja") = MsgBoxResult.Yes Then
                drv = bs.Current
                b = grdResult.CurrentRow.Index
                drv.Delete()
            End If
            dA.Update(ds, Tabla)
            grbDetalle.Enabled = False
            grdResult.Refresh()
        Catch ex As Exception
            If Mid(ex.Message, 1, 9) = "ORA-00001" Then
                MsgBox("El código  COD_ID debe ser único revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")
            End If
            If Mid(ex.Message, 1, 9) = "ORA-02292" Then
                MsgBox("No está permitido el borrado en cascada, asegúrese que el COD_ID no tiene Sub ID´s antes de borrarlo", MsgBoxStyle.Critical, "Error al actualizar los datos")
            End If
            Recargar()
        End Try
End Sub

Botón para las modificaciones.

Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click

     
        grbDetalle.Enabled = True
        grbBuscar.Enabled = False      
End Sub

Botón aceptar, graba las altas, bajas o modificaciones.

Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Dim drv As DataRowView
        Try
            drv = bs.Current

            drv("COD_CAMPO1") = cboLevel1.SelectedValue
            drv("COD_CAMPO_SEC2") = cboLevel2.SelectedValue
         
            Traduce(drv) 'traduce las descripciones a códigos
            bs.EndEdit()
            dA.Update(ds, Tabla)

            grbBuscar.Enabled = True
            grbDetalle.Enabled = False

            grdResult.Refresh()
            CamposAsociados() 'refresca los cambios
            bolRefrescar = False
        Catch ex As Exception
            If Mid(ex.Message, 1, 9) = "ORA-00001" Then
                MsgBox("El código COD_ID debe ser único revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")
            End If
            bolRefrescar = True
        End Try

End Sub

Botón cancelar

Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        bs.CancelEdit()
        If bolRefrescar Then
            Recargar()
        End If
        grbDetalle.Enabled = False
        grbBuscar.Enabled = True
End Sub

Botón recargar

Sub Recargar()
     bolRefrescar = False
     ds.Tables(0).Clear()
     CamposAsociados()
     grdResult.Refresh()

End Sub

Finalmente este será el código del botón que llama a la pantalla con las dos combos anidadas que cargará los dos campos asociados.

Public Sub btnPaisDom_Click(sender As Object, e As EventArgs) Handles btnPaisDom.Click
        Dim d As New frmNiveles()  'envia los datos del grid al formulario hijo

        d.gID = txtColumna.Text
      
        d.cboLevel1.Text = cboLevel1.Text
        d.cboLevel2.Text = cboLevel2.Text

        d.cboLevel1.SelectedItem = cboLevel1.SelectedItem
        d.cboLevel2.SelectedItem = cboLevel2.SelectedItem

        d.ShowDialog()
       
        cboLevel1.Text = d.cboLevel1.Text
        cboLevel2.Text = d.cboLevel2.Text
      
        If Not d.cboLevel1.SelectedItem Is Nothing Then
            txtNivel1.Text = d.cboLevel1.SelectedItem.clave
        End If

        If Not d.cboLevel2.SelectedItem Is Nothing Then
            txtNivel2.Text = d.cboLevel2.SelectedItem.clave
        End If

        d.Close()
End Sub

Pasamos al código de la pantalla frmNiveles que cargará dos combos anidadas.

Public Class frmNiveles
  
    Public gID As String

    Private Sub cboLevel1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLevel1.SelectedIndexChanged
        cboLevel2.Items.Clear()
        cboLevel2.Text = ""

        frmNiveles.Cargacombo("\CargarCampoAso2.sql", cboLevel2, DirectCast(Me.cboLevel1.SelectedItem, AddItem).Clave.ToString())
        btnSeleccionar.Enabled = True
    End Sub

    Private Sub frmNiveles_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      
        cboLevel1.Items.Clear()
        cboLevel1.Text = ""
        cboLevel2.Items.Clear()
        cboLevel2.Text = ""

        frmNiveles.Cargacombo("\CargarCampoAso1.sql", cboLevel1, gID)
        btnSeleccionar.Enabled = True
    End Sub

    Private Sub btnSeleccionar_Click(sender As Object, e As EventArgs) Handles btnSeleccionar.Click
       
       Me.Hide()
    End Sub
End Class

El código completo del formulario principal es este:


Imports System.IO
Imports System.Data.OleDb
Imports System.Windows.Forms
Imports System.Data.SqlClient

Public Class frmCamposAsociados

    Public gDataSource As String
    Dim ds As New DataSet()
    Dim bs As BindingSource = New BindingSource()
    Dim dA As New OleDb.OleDbDataAdapter
    Dim drEdit As DataRowView
    Dim bolRefrescar As Boolean
    Dim bolPrimeraVez As Boolean = True
    Const Tabla = "CamposAsociados"

     Private Sub frmCamposaAsociados_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.grdResult.DataSource = bs

        txtColumna.MaxLength = 40
  

        CamposAsociados()
        btnModificar.Visible = IIf(ObjetosPermitidos.ContainsKey("btnModificar"), True, False)
        btnBaja.Visible = IIf(ObjetosPermitidos.ContainsKey("btnBaja"), True, False)
        btnAlta.Visible = IIf(ObjetosPermitidos.ContainsKey("btnAlta"), True, False)

        cboDataSource.Text = gDataSource
        btnCombosAnidadas.Enabled = False
    End Sub

    Sub CamposAsociados()

        Dim tb As DataTable
        Dim srSQL As StreamReader
        Dim strConsulta As String
        Dim cmdbuilder As OleDbCommandBuilder

        tb = New DataTable

        'Repeticion si no es la primera vez es que se ha llamado desde el mantenimiento y antes de cargarse debe borrarse la grid
        If Not bolPrimeraVez Then
            ds.Tables("CamposAsociados").Clear()
        End If
        '***********************

        strStartupPath = My.Application.Info.DirectoryPath
        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCamposAsociados".sql")
        strConsulta = srSQL.ReadToEnd
        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)
        dA.SelectCommand = cmdPD
        cmdbuilder = New OleDbCommandBuilder(dA)
        dA.Fill(ds, "CamposAsociados")

        If Not bolPrimeraVez Then
            Exit Sub
        End If

        bolPrimeraVez = False

        'Codigo nuevo para primer campo asociado
        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCampoAso1.sql")
        strConsulta = srSQL.ReadToEnd
        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)
        dA.SelectCommand = cmdPD
        dA.Fill(ds, "CampoAso1")

        cboLevel1.ValueMember = "COD_CAMPO1"
        cboLevel1.DisplayMember = "DES_CAMPO1"
        cboLevel1.DataSource = ds.Tables("CampoAso1").DefaultView

        'Codigo nuevo para primer campo asociado
        srSQL = New System.IO.StreamReader(strStartupPath & "\CargarCampoAso2.sql")
        strConsulta = srSQL.ReadToEnd
        cmdPD = New OleDb.OleDbCommand(strConsulta, cnxPD)
        dA.SelectCommand = cmdPD
        dA.Fill(ds, "CampoAso2")

        cboLevel1.ValueMember = "COD_CAMPO_SEC2"
        cboLevel1.DisplayMember = "DES_CAMPO2"
        cboLevel1.DataSource = ds.Tables("CampoAso2").DefaultView

      
        'Código para definir las relaciones con las tablas de los campos asociados ojo notar 'que COD_CAMPO1 se refiere a una columna de cada tabla, es decir COD_CAMPO1 de Tabla 'Relacionada y COD_CAMPO1 de tabla principal. Esto en la simulación por código del INNER 'JOIN

        ds.Relations.Add("CampoAso1_Relacion", ds.Tables("CampoAso1").Columns("COD_CAMPO1"),
ds.Tables("CamposAsociados").Columns("COD_CAMPO1"))

     ds.Relations.Add("CampoAso2_Relacion",ds.Tables("CampoAso2").Columns("COD_CAMPO_SEC2"), ds.Tables("CamposAsociados").Columns("COD_CAMPO_PRINC2"))

    
        Dim oNivel1 As DataColumn = New DataColumn
        oNivel1.DataType = System.Type.GetType("System.String")
        oNivel1.ColumnName = "CampoAso1"
        oNivel1.Expression = "Parent(CampoAso1_Relacion).DES_CAMPO1"
        ds.Tables(Tabla).Columns.Add(oNivel1)

        Dim oNivel2 As DataColumn = New DataColumn
        oNivel2.DataType = System.Type.GetType("System.String")
        oNivel2.ColumnName = "CampoAso2"
        oNivel2.Expression = "Parent(CampoAso2_Relacion).DES_CAMPO2"
        ds.Tables(Tabla).Columns.Add(oNivel2)

      'Aquí fuerzo de nuevo la select principal para que no me de error al realizar 'operaciones con el formulario una vez he cargado el data GridView
        dA.SelectCommand = New OleDb.OleDbCommand("SELECT  COD_ID, DES_PRINCIPAL, COD_CAMPO1, COD_CAMPO_PRINC2 FROM PROPIETARIO.TABLA_PRINCIPAL", cnxPD)

        dA.UpdateCommand = cmdbuilder.GetUpdateCommand()
        dA.DeleteCommand = cmdbuilder.GetDeleteCommand()
        dA.InsertCommand = cmdbuilder.GetInsertCommand()

        Try

            bs.DataSource = ds.Tables(Tabla)

       'Aquí hacemos el binding de los campos de la base de datos con los controles del formulario

            Me.txtColumna.DataBindings.Add(New Binding("Text", bs, "COD_ID"))
            Me.txtDescripcion.DataBindings.Add(New Binding("Text", bs, "DES_PRINCIPAL"))
            Me.cboLevel1.DataBindings.Add(New Binding("SelectedValue", bs, "COD_CAMPO1"))
            Me.cboLevel2.DataBindings.Add(New Binding("SelectedValue", bs, "COD_CAMPO_PRINC2"))
          
         
            grdResult.Columns(0).MinimumWidth = 50
            grdResult.Columns(1).MinimumWidth = 50  'Descripcion
            grdResult.Columns(2).MinimumWidth = 30  'Campo1
            grdResult.Columns(3).MinimumWidth = 200 'Campo2
        
          
            grdResult.Columns(0).HeaderText = "Identificador"
            grdResult.Columns(1).HeaderText = "Descripción"
            grdResult.Columns(2).HeaderText = "Campo asociado 1"
            grdResult.Columns(3).HeaderText = "Campo Asociado 2"

            'coloca las columnas en la posición deseada
            grdResult.Columns(0).DisplayIndex = 2  'Identificador
            grdResult.Columns(1).DisplayIndex = 1 'Descripcion
            grdResult.Columns(2).DisplayIndex = 4 'Campo1
            grdResult.Columns(3).DisplayIndex = 3 'Campo2

            grdResult.Refresh()

        Catch ex As Exception
        End Try

    End Sub

    Function BuscarCodigoRelacion() As Integer
        Stop
    End Function


    Private Sub grdResult_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdResult.RowEnter

    End Sub

    Private Sub btnFiltro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFiltro.Click
        Dim strFiltro As String = ""
        Dim vwCamposAsociados As DataView


        If txtFiltroColumna.Text <> "" Then
            If Not strFiltro = "" Then
                strFiltro = strFiltro & " AND "
            End If
            strFiltro = strFiltro & "COD_ID LIKE '%" & UCase(txtFiltroColumna.Text) & "%'"  
        End If

     

        If txtFiltroDescripcion.Text <> "" Then
            If Not strFiltro = "" Then
                strFiltro = strFiltro & " AND "
            End If
            strFiltro = strFiltro & "DES_PRINCIPAL LIKE '%" & txtFiltroDescripcion.Text & "%'"
        End If

     
        If Not ds.Tables("CamposAsociados") Is Nothing Then
            vwCamposAsociados = ds.Tables("CamposAsociados").DefaultView
            vwCamposAsociados.RowFilter = strFiltro
        End If
    End Sub

    Private Sub btnAlta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlta.Click
      
        grbDetalle.Enabled = True
        grbBuscar.Enabled = False
        btnPaisDom.Enabled = False
        drEdit = bs.AddNew()
        bs.MoveLast()
      
        grdResult.Refresh()
    End Sub

    Private Sub btnBaja_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaja.Click
        Dim drv As DataRowView
        Dim b As Integer
      
        Try

            If MsgBox("¿Esta usted seguro que desea borrar este registro?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmación de Baja") = MsgBoxResult.Yes Then
                drv = bs.Current
                b = grdResult.CurrentRow.Index
                drv.Delete()
            End If
            dA.Update(ds, Tabla)
            grbDetalle.Enabled = False
            grdResult.Refresh()
        Catch ex As Exception
            If Mid(ex.Message, 1, 9) = "ORA-00001" Then
                MsgBox("El código de ID debe ser único revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")
            End If
            If Mid(ex.Message, 1, 9) = "ORA-02292" Then
                MsgBox("No está permitido el borrado en cascada, asegurese que el ID no tiene Sub ID´s antes de borrarla", MsgBoxStyle.Critical, "Error al actualizar los datos")
            End If
            Recargar()
        End Try

    End Sub

    Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click
     
        grbDetalle.Enabled = True
        grbBuscar.Enabled = False
        
    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Dim drv As DataRowView
        Try
            drv = bs.Current

         

            drv("COD_CAMPO1") = cboLevel1.SelectedValue
            drv("COD_CAMPO_SEC2") = cboLevel2.SelectedValue
          

            bs.EndEdit()
            dA.Update(ds, Tabla)

            grbBuscar.Enabled = True
            grbDetalle.Enabled = False

            grdResult.Refresh()
            CamposAsociados() 'refresca los cambios
            bolRefrescar = False
        Catch ex As Exception
            If Mid(ex.Message, 1, 9) = "ORA-00001" Then
                MsgBox("El código ID debe ser único revise los datos e inténtelo de nuevo", MsgBoxStyle.Critical, "Error al actualizar los datos")
            End If
            bolRefrescar = True
        End Try

    End Sub
   
    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        bs.CancelEdit()
        If bolRefrescar Then
            Recargar()
        End If
        grbDetalle.Enabled = False
        grbBuscar.Enabled = True
    End Sub

    Sub Recargar()
        bolRefrescar = False
        ds.Tables(0).Clear()
        CamposAsociados()
        grdResult.Refresh()
    End Sub

    Private Sub txtCodigo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

  
    Private Sub txtColumna_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtColumna.TextChanged
       
        txtColumna.Text = UCase(txtColumna.Text)
        txtColumna.SelectionStart = txtColumna.TextLength + 1
        txtColumna.MaxLength = 10
    End Sub

 
    Sub AplicarFiltro()
        Dim strFiltro As String = ""
        Dim vw CamposAsociados As DataView
    
        If txtFiltroColumna.Text <> "" Then
            If Not strFiltro = "" Then
                strFiltro = strFiltro & " AND "
            End If
            strFiltro = strFiltro & "COD_ID LIKE '%" & UCase(txtFiltroColumna.Text) & "%'"  
        End If

     
        If txtFiltroDescripcion.Text <> "" Then
            If Not strFiltro = "" Then
                strFiltro = strFiltro & " AND "
            End If
            strFiltro = strFiltro & "DES_PRINCIPAL LIKE '%" & txtFiltroDescripcion.Text & "%'"
        End If

     
        If Not ds.Tables("CamposAsociados") Is Nothing Then
            vwCamposAsociados = ds.Tables("CamposAsociados").DefaultView
            vwCamposAsociados.RowFilter = strFiltro
        End If

    End Sub

    Private Sub txtFiltroColumna_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFiltroColumna.TextChanged
        AplicarFiltro()
    End Sub

    Private Sub txtFiltroDescripcion_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFiltroFormato.TextChanged
        AplicarFiltro()
    End Sub

Public Sub btnPaisDom_Click(sender As Object, e As EventArgs) Handles btnPaisDom.Click
        Dim d As New frmNiveles()  'envia los datos del grid al formulario hijo

        d.gID = txtColumna.Text
      
        d.cboLevel1.Text = cboLevel1.Text
        d.cboLevel2.Text = cboLevel2.Text

        d.cboLevel1.SelectedItem = cboLevel1.SelectedItem
        d.cboLevel2.SelectedItem = cboLevel2.SelectedItem

        d.ShowDialog()
      
        cboLevel1.Text = d.cboLevel1.Text
        cboLevel2.Text = d.cboLevel2.Text
      
        If Not d.cboLevel1.SelectedItem Is Nothing Then
            txtNivel1.Text = d.cboLevel1.SelectedItem.clave
        End If

        If Not d.cboLevel2.SelectedItem Is Nothing Then
            txtNivel2.Text = d.cboLevel2.SelectedItem.clave
        End If

        d.Close()
    End Sub
End Class

No hay comentarios:

Publicar un comentario