Skip to content

Instantly share code, notes, and snippets.

@ndthanh
Last active January 20, 2017 11:40
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save ndthanh/a0096fa2b22d9a2ceffc60469edd85a4 to your computer and use it in GitHub Desktop.
Private Sub TXTFIND_Change()
Call WaitFor(0.05)
Dim Arr, i
If CBDMHH.Value = "ALL" Then
Arr = FilterMCLArray(sArray, 4, TXTFIND.Text, True)
ElseIf CBDMHH.Value = "MA_HH" Then
Arr = Filter2DArray(sArray, 1, TXTFIND.Text, True)
ElseIf CBDMHH.Value = "TEN_HH" Then
Arr = Filter2DArray(sArray, 2, TXTFIND.Text, True)
ElseIf CBDMHH.Value = "DVT" Then
Arr = Filter2DArray(sArray, 3, TXTFIND.Text, True)
ElseIf CBDMHH.Value = "MA_KHO" Then
Arr = Filter2DArray(sArray, 4, TXTFIND.Text, True)
End If
If Not IsArray(Arr) Then LBDMHH.Clear: Exit Sub
LBDMHH.List() = IIf(Trim(TXTFIND.Text) = "", sArray, Arr)
For i = 0 To Me.LBDMHH.ListCount - 1
If Dic.exists(Me.LBDMHH.List(i, 0)) Then Me.LBDMHH.Selected(i) = True
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment