Sub TxtSearchFilter_TextChanged (Old As String, New As String)
Listv.sv.Visible = False 'Added because of the divider line flashing its full background color
Wait For (FilterSearch(New)) Complete (Completed As Boolean)
Listv.sv.Visible = True
End Sub
Sub FilterSearch (New As String) As ResumableSub
Listv.Clear
Sleep(0)
If New.Length = 0 Then
Else
Dim act = "active"
db.QueryASync("select * from staff where name LIKE '" & New & "%' AND status Like '" & act & "%' ORDER BY name Asc;", 3)
Wait For db_Ready
End If
Return True
End Sub