No, what I really want is a combo box that is multi colum and autoformat.
I found an example of an autoformat, which is working well and now I need
the multi column part.
I have a customerID, lastname and firstname columns from same table
(dataset) that I would like to display, searching by last name.
This is the code I'm using for the autoformat:
It is in a module and I'm calling through the keyup event for the combobox.
---------------------------
Private Sub CboLastName_Key Up(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyEventA rgs) Handles CboLastName.Key Up
AutoComplete(Cb oLastName, e)
End Sub
----------------------------------------------------------------------------
Module Module1
Public Sub AutoComplete(By Val cbo As ComboBox, _
ByVal e As System.Windows. Forms.KeyEventA rgs)
' Call this from your form passing in the name
' of your combobox and the event arg:
' AutoComplete(cb oState, e)
Dim iIndex As Integer
Dim sActual As String
Dim sFound As String
Dim bMatchFound As Boolean
'check if the text is blank or not, if not then only proceed
If Not cbo.Text = "" Then 'if the text is not blank then only proceed
' If backspace then remove the last character
' that was typed in and try to find
' a match. note that the selected text from the
' last character typed in to the
' end of the combo text field will also be deleted.
If e.KeyCode = Keys.Back Then
cbo.Text = Mid(cbo.Text, 1, Len(cbo.Text) - 1)
End If
' Do nothing for some keys such as navigation keys...
If ((e.KeyCode = Keys.Left) Or _
(e.KeyCode = Keys.Right) Or _
(e.KeyCode = Keys.Up) Or _
(e.KeyCode = Keys.Down) Or _
(e.KeyCode = Keys.PageUp) Or _
(e.KeyCode = Keys.PageDown) Or _
(e.KeyCode = Keys.Home) Or _
(e.KeyCode = Keys.End)) Then
Return
End If
Do
' Store the actual text that has been typed.
sActual = cbo.Text
' Find the first match for the typed value.
iIndex = cbo.FindString( sActual)
' Get the text of the first match.
' if index > -1 then a match was found.
If (iIndex > -1) Then '** FOUND SECTION **
sFound = cbo.Items(iInde x).ToString()
' Select this item from the list.
cbo.SelectedInd ex = iIndex
' Select the portion of the text that was automatically
' added so that additional typing will replace it.
cbo.SelectionSt art = sActual.Length
cbo.SelectionLe ngth = sFound.Length
bMatchFound = True
Else '** NOT FOUND SECTION **
'if there isn't a match and the text typed in is only 1 character
'or nothing then just select the first entry in the combo box.
If sActual.Length = 1 Or sActual.Length = 0 Then
' cbo.SelectedInd ex = 0
' cbo.SelectionSt art = 0
' cbo.SelectionLe ngth = Len(cbo.Text)
' bMatchFound = True
MsgBox("Not Found")
bMatchFound = True
Else
'if there isn't a match for the text typed in then
'remove the last character of the text typed in
'and try to find a match.
'************** ************ NOTE *************** ***********
'COMMENT THE FOLLOWING THREE LINES AND UNCOMMENT
'THE (bMatchFound = True) LINE
'INCASE YOU WANT TO ALLOW TEXTS TO BE TYPED IN
' WHICH ARE NOT IN THE LIST. ELSE IF
'YOU WANT TO RESTRICT THE USER TO TYPE TEXTS WHICH ARE
'NOT IN THE LIST THEN LEAVE THE FOLLOWING THREE LINES AS IT IS
'AND COMMENT THE (bMatchFound = True) LINE.
'************** *************** *************** ***************
'/////// THREE LINES SECTION STARTS HERE ///////////
cbo.SelectionSt art = sActual.Length - 1
cbo.SelectionLe ngth = sActual.Length - 1
cbo.Text = Mid(cbo.Text, 1, Len(cbo.Text) - 1)
' MsgBox("Not Found")
'/////// THREE LINES SECTION ENDS HERE /////////////
' bMatchFound = True
End If
End If
Loop Until bMatchFound
End If
End Sub
End Module
"Chris" <cc*********@ho tmail.com> wrote in message
news:e2******** ******@TK2MSFTN GP14.phx.gbl...
Do you have a control that displays multi columns right now? If so post
the code to create the columns and the code that populates the datasource
"CindyH" <no**@none.co m> wrote in message
news:OX******** ******@TK2MSFTN GP15.phx.gbl... Hi
Does anyone know how to create a multi column combo box from the same
table?
Thanks,
Cindy
