Ordenar por autor
Publicado por Luis (8 intervenciones) el 09/08/2003 01:46:11
Hola.
Estoy intentando realizar un listado desde una aplicación Visual Basic y no hay forma de que salga ordenada por autor.
Aquí teneis el código, pero no se que es lo que falla.
Private Sub cmdListados_Click()
Dim Filtrar As String
FrmLibros.CRLibros.ReportFileName = "Libros1.rpt"
' DataLibros.RecordSource = "Select * From LIBROS order by" + Trim$(LblSeleccion.Caption)
'Filtro para registro inicial y final
Filtrar = "{LIBROS." + Trim$(LblSeleccion.Caption) + "}"
Filtrar = Filtrar + ">= '" & Trim$(TxtImpriInicio.Text) & "'"
Filtrar = Filtrar + " And " + "{LIBROS." + Trim$(LblSeleccion.Caption) + "}"
Filtrar = Filtrar + " <= '" & Trim$(TxtImpriFin.Text) & "'"
CRLibros.SelectionFormula = Filtrar
CRLibros.SortFields(0) = "+{Libros.autor}"
CRLibros.Action = 1
End Sub
Un saludo. Luis
Estoy intentando realizar un listado desde una aplicación Visual Basic y no hay forma de que salga ordenada por autor.
Aquí teneis el código, pero no se que es lo que falla.
Private Sub cmdListados_Click()
Dim Filtrar As String
FrmLibros.CRLibros.ReportFileName = "Libros1.rpt"
' DataLibros.RecordSource = "Select * From LIBROS order by" + Trim$(LblSeleccion.Caption)
'Filtro para registro inicial y final
Filtrar = "{LIBROS." + Trim$(LblSeleccion.Caption) + "}"
Filtrar = Filtrar + ">= '" & Trim$(TxtImpriInicio.Text) & "'"
Filtrar = Filtrar + " And " + "{LIBROS." + Trim$(LblSeleccion.Caption) + "}"
Filtrar = Filtrar + " <= '" & Trim$(TxtImpriFin.Text) & "'"
CRLibros.SelectionFormula = Filtrar
CRLibros.SortFields(0) = "+{Libros.autor}"
CRLibros.Action = 1
End Sub
Un saludo. Luis
Valora esta pregunta
0