Txarlie
25 de Marzo del 2004

Hola

Quiero que cuando se pinche en la primera fila de un grid me ejecute un código: ¿como lo hago?

El código que quiero usar es para ordenar el grid. ¿Alguien lo ha hecho ya?

Gracias por adelantado.

sdemingo
25 de Marzo del 2004

Hola,

yo lo tengo hecho, el único problema es que no puedes poner habilitar la selección por fila en el grid, sino que tiene que ser por celda.

Private Sub mfGrid_Click()

Dim strTitulo As String
Dim rs As New ADODB.Recordset

strSql = "select * from pelis"

If mfGrid.RowSel = 0 Then
Select Case mfGrid.ColSel
Case 0
strSql = strSql & " order by Codigo"
Case 1
strSql = strSql & " order by Titulo"
Case 2
strSql = strSql & " order by Genero"
Case 3
strSql = strSql & " order by Fecha"
End Select
rs.Open strSql, oConexion, adOpenKeyset, adLockOptimistic
If rs.RecordCount <> 0 Then
Dim fila As Integer
For fila = 1 To mfGrid.Rows - 1
mfGrid.RemoveItem (fila)
Next fila
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
If IsNull(rs("Titulo")) Then
strTitulo = ""
Else
strTitulo = rs("Titulo")
End If
'Se añaden los datos al Grid
mfGrid.AddItem rs("Codigo") & vbTab & strTitulo & vbTab & rs("Genero") & vbTab & rs("Fecha")
rs.MoveNext
Next i
End If
rs.Close
End If

End Sub

Espero que te sirva
Salu2
sdemingo
http://boards.melodysoft.com/sdemingo