hola les explico. cree un control de usuario llamado Ccargar, alli tengo un ListView llamado lv. cree tambien una funcion para cargar los datos la cual funciona muy bien.
Public Function Cargar_Registro()
' codigo para cargar
End Function
ahora bien, tengo un formulario llamado frmListado_Vis en el cual muestro el Ccargar y todo bien. pero llamo a otro formulario para filtrar datos en el cCargar y lo llama mas no me filtra, ni me ordena. aqui les dejo la imagen para quye tengan una idea de lo que es el formulario. y aqui les dejo el codigo que implemento para el filtrado. espero me ayuden.
imagen---------------->
http://www.subetela.com/visor.php?id=108022
codigo------------------> esto esta en el formulario de busqueda. no me filtra, no me hace nada.
Código:
Public Sub Fitrar_Registros()
Dim Campo, OrderByCampo, Orden As String
Dim SQL As String
If cboFiltrar.ListIndex = -1 Then
cboFiltrar.ListIndex = 0
End If
If cboOrdenar.ListIndex = -1 Then
cboOrdenar.ListIndex = 0
End If
If cboFiltrar.ListIndex = 0 Then
Campo = "Codigo"
ElseIf cboFiltrar.ListIndex = 1 Then
Campo = "Cedula"
End If
Select Case cboOrdenar.ListIndex
Case 0: OrderByCampo = "Codigo"
Case 1: OrderByCampo = "Cedula"
End Select
' si el recorset está abierto lo cierra
If rs.State = 1 Then
rs.Close
End If
SQL = "SELECT * FROM new_ingresos Where " & Campo & " like '" & txtBuscar & "%' order by " & OrderByCampo & " " & Orden
End Sub