Sección de códigos , trucos y ejemplos para visual basic

327 - Ordenar Hierarchical Flexgrid al hacer clic en el encabezado

Ejemplo que usa la propiedad MouseCol y la propiedad Sort para ordenar un Flexgrid enlazado a un control Ado al clickear en los encabezados de columna de la grilla

Formulario

vista del ejemplo para ordenar el hierarchical flexgrid el hacer clic en las columnas

Las líneas de código que ordena los datos al hacer clic en el encabezado de columna son las siguientes, ( ubicado en el evento Click del Ms Flexgrid )

' Ordena al hacer clic en el encabezado de columna '************************************************************* Private Sub MSHFlexGrid1_Click() Static Modo As Boolean If (MSHFlexGrid1.MouseRow = 0) Then ' Ordena en forma ascendente If Modo Then MSHFlexGrid1.Col = MSHFlexGrid1.MouseCol MSHFlexGrid1.Sort = 2 Modo = False ' Ordena en forma descendente Else MSHFlexGrid1.Col = MSHFlexGrid1.MouseCol MSHFlexGrid1.Sort = 1 Modo = True End If End If Me.Caption = " Ordenando por la columna: " & MSHFlexGrid1.MouseCol End Sub

.. todo el resto del código del siguiente ejemplo es para conectar el control Ado a la base de datos, y para configurar el Hierarchical FlexGrid , por lo tanto no es necesario

Ejemplo

1 - Colocar un control de Ado llamado Adodc1
2 - Un control Microsoft Hierarchical FlexGrid llamado MSHFlexGrid1

Nota: El ConnectionString y el recordsource para al control de Ado , se indica en el Load del formulario, por lo tanto no es necesario hacerlo en tiempo de diseño, asi como tampo indicar el DataSource del flexgrid

Código fuente en el formulario

'******************************************************************* ' Agregar un control Ado y un Microsoft Hierarchical Flexgrid '******************************************************************* Private Const MARGIN_SIZE = 60 ' en twips Private Sub Form_Load() 'Adodc1.Visible = False ' Cadena de conexión. Usa la base de datos NWIND de visual basic Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:\Archivos de programa\" & _ "Microsoft Visual Studio\VB98\NWIND.MDB" & _ ";Persist Security Info=False" ' Cursor y tipo de comando Adodc1.CursorLocation = adUseClient Adodc1.CommandType = adCmdText ' comando Sql Adodc1.RecordSource = "select CantidadPorUnidad" & _ ",IdCategoría," & _ "IdProducto," & _ "IdProveedor," & _ "NivelNuevoPedido," & _ "NombreProducto from Productos" ' Opciones apariencia y configuración del MSHFlexGrid '*************************************************************** With MSHFlexGrid1 .Redraw = False ' establecer anchos de columna de cuadrícula .ColWidth(0) = -1 .ColWidth(1) = -1 .ColWidth(2) = -1 .ColWidth(3) = -1 .ColWidth(4) = -1 .ColWidth(5) = -1 .Cols = 5 .FixedRows = 1 .FixedCols = 0 .FocusRect = flexFocusNone .HighLight = flexHighlightNever ' establecer tipo de cuadrícula .AllowBigSelection = True .FillStyle = flexFillRepeat ' encabezado en negrita .Row = 0 .Col = 0 .RowSel = .FixedRows - 1 .ColSel = .Cols - 1 .CellFontBold = True .AllowBigSelection = False .FillStyle = flexFillSingle .Redraw = True End With ' Refresca el control ado Adodc1.Refresh ' Asigna los datos al Microsoft Hierarchical flexgrid Set MSHFlexGrid1.DataSource = Adodc1.Recordset End Sub Private Sub Form_Resize() Dim sngButtonTop As Single Dim sngScaleWidth As Single Dim sngScaleHeight As Single On Error GoTo Form_Resize_Error With Me sngScaleWidth = .ScaleWidth sngScaleHeight = .ScaleHeight ' Redimensiona el FlexGrid .MSHFlexGrid1.Move MARGIN_SIZE, _ MARGIN_SIZE, _ sngScaleWidth - (2 * MARGIN_SIZE), _ sngButtonTop - (2 * MARGIN_SIZE) End With Exit Sub Form_Resize_Error: ' evita errores en valores negativos Resume Next End Sub ' Ordena la columna al hacer clic en el encabezado '************************************************************* Private Sub MSHFlexGrid1_Click() Static Modo As Boolean If (MSHFlexGrid1.MouseRow = 0) Then ' Ordena en forma ascendente If Modo Then MSHFlexGrid1.Col = MSHFlexGrid1.MouseCol MSHFlexGrid1.Sort = 2 Modo = False ' Ordena en forma descendente Else MSHFlexGrid1.Col = MSHFlexGrid1.MouseCol MSHFlexGrid1.Sort = 1 Modo = True End If End If Me.Caption = " Ordenando por la columna: " & MSHFlexGrid1.MouseCol End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb