1. We have moved from vBulletin to XenForo and you are viewing the site in the middle of the move. Though the functional aspect of everything is working fine, we are still working on other changes including the new design on Xenforo.
    Dismiss Notice

ListView in VB.Net

Discussion in 'Visual Basic ( VB )' started by khwo, Jul 14, 2006.

  1. khwo

    khwo New Member

    Joined:
    Jul 6, 2006
    Messages:
    5
    Likes Received:
    0
    Trophy Points:
    0
    Hi all,

    I am using the following code for my searching function, but when I try to run it, it are allow me to search the item for column 1, but I want to search the item for column 2 as well columun 3, what mistake I have make, can anyone give me some advice on this?

    This is my code:
    Code:
     
    Private Sub ListView_Master_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView_Master.ColumnClick
    
        Dim exactMatch As Boolean
        Dim mySearchText As String
    
        Select Case e.Column
            Case 0 'column one BOM ID 
                'Search for item at column 0 when user click on column 0
                'MsgBox(e.Column)
    
            Case 1 'column two Cust Part # = BOM
                'Search for item at column 1 when user click on column 1
    
                MsgBox(e.Column)
    
                mySearchText = Trim(InputBox("Please enter your Customer Part #", "Search Product Master Entry Data"))
    
                For Each itm As ListViewItem In ListView_Master.Items
                    If exactMatch Then
                        If itm.Text = mySearchText Then
                            ' an exact match was found ...
                            MsgBox("Exact")
                        End If
                    Else
                        mySearchText &= "*"
                        If itm.Text Like mySearchText Then
                            ' a partial match was found ...
                            MsgBox("Partial")
                        End If
                    End If
                Next
    
            Case 2 'column three Child Part#A = CodeAChild Part#B = CodeB
                'Search for item at column 2 when user click on column 2
                MsgBox(e.Column)
    
            Case 3 'column three Child Part#B = CodeB
                'Search for item at column 3 when user click on column 3
    
                MsgBox(e.Column)
    
        End Select
    
    End Sub
     
    Last edited by a moderator: Jul 14, 2006
  2. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,276
    Likes Received:
    364
    Trophy Points:
    83

Share This Page