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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

169 - Ordenar un FlexGrid por el campo

Ejemplo que muestra como ordenar un control Flexgrid enlazado a un control Data, al hacer click en una columna

Colocar en un nuevo proyecto

un control Data llamado Data1
un control Ms FlexGrid MSFlexGrid1

Luego seleccionar el control FlexGrid y especificar en la propiedad DataSource el control Data1 para poder enlazarlo

En el FormLoad hay que especificar el path de la base de datos en la propiedad DataBaseName, y también la consulta SQL que se le pasa a la propiedad Recordsource del Control Data.

Luego al hacer un click en una columna, el FlexGrid se ordena de acuerdo al campo, en forma Ascendente y Descendente, en el evento click del control Flexgrid

Código fuente en un formulario :

Option Explicit 'Variables '''''''''''''''''''''''''''''''''''' Dim Consulta As String Dim Tabla As String Dim Campo As String Dim SSelect As String Dim OrdenadoPor As String Dim Recordsource_Actual As String Private Sub Form_Load() ' Datos de la consulta sql _ ( especificar la tabla y el campo por el cual ordenar cuando se carga ) SSelect = "SELECT * FROM " OrdenadoPor = " ORDER BY " Tabla = "LaTabla" Campo = "ElCampo" 'Conecta el Data1 y le asigna al Recordsource la sentencia SQL With Data1 'Path de la base de datos .DatabaseName = App.Path & "\bd1.mdb" 'Cadena SQL para la propiedad RecordSource .RecordSource = SSelect & Tabla & OrdenadoPor & Campo & (" ASC") 'Almacena el Recordsource Recordsource_Actual = .RecordSource End With End Sub 'Ordenación de las columnas al hacer Click en un campo ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub MSFlexGrid1_Click() Dim scadena As String, sC As String, f As Boolean Static x As Integer x = x + 1 If x > 1 Then x = 0 End If With MSFlexGrid1 'si no se hizo click en una columna del FlexGrid sale If .Row > 1 Then Exit Sub End If 'Guarda la cadena sql. osea el recordsource actual del data scadena = SSelect & Tabla & OrdenadoPor & .TextMatrix(0, .Col) 'Guarda el caption de la columna del Flexgrid en el cual se hizo Click sC = .TextMatrix(0, .Col) If (sC <> Consulta) Then Consulta = " ASC" f = CBool(sC <> Consulta) If .Row = 1 Then If (x = 0 Or x = 1) And f Then scadena = scadena & Consulta Else If x = 1 Then 'Verifica si la cadena sql, ( el Order BY ) _ está en forma descendente If Right(Recordsource_Actual, 4) = "DESC" Then scadena = scadena & " ASC" Else scadena = scadena & " DESC" End If Else 'Verifica si la cadena sql, ( el Order BY ) _ está en forma Ascendente If Right(Recordsource_Actual, 4) = " ASC" Then scadena = scadena & " DESC" Else scadena = scadena & " ASC" End If End If End If End If Consulta = .TextMatrix(0, .Col) 'Carga el data pasandole la _ consulta sql que luego se la asigna al Recordsource Call Cargar_Data(scadena) End With End Sub Private Sub Cargar_Data(s_Sql As String) On Error GoTo errSub With Data1 ' Asigna el RecordSource .RecordSource = s_Sql .Refresh 'refesca el control Data End With ' Almacena el Recordsource en la variable Recordsource_Actual = s_Sql Exit Sub 'error errSub: MsgBox Err.Description, vbCritical End Sub

Recursos vb 6.0 - Enlaces Relacionados

Buscar en Recursos vb