Subject LookupCombo doesn't position correctly if values contain numbers
Author Michael L. Horne
Hello,

I have setup a TIB_LookupCombo to select vendors from
our vendor file. I have noticed that if the user
hits "A" for the first letter it doesn't move until
the second letter is hit. I think this is because
the first few vendor names in our file start with
numbers.

Examples:

2ND STEEL USED
5 RIVERS
AAA COOPER
ADAMS EQUIP

When first entering the LookupCombo if the user types
"A" the positioning doesn't change. If they had typed
"B" then it positions to the first vendor starting with
"B". I think this might be a bug in the LookupCombo.

Below is the code for the components.

Thanks
Michael L. Horne


object ibVendor: TIB_LookupCombo
Left = 88
Top = 178
Width = 305
Height = 21
Hint = 'Select Vendor'
DataSource = dsAPVendorLookupEdit
TabOrder = 8
AllowTimeout = False
AutoDropDown = True
ClearSelectionOnExit = True
DisplayField = 'APVEN_COMPANY'
DropDownWidth = -1
SeekNearest = True
ShowButton = True
end
object qyAPVendorLookupEdit: TIB_Query
DatabaseName = 'C:\Offroad\IB\ORInventory.gdb'
IB_Connection = formIBData.cnMain
SQL.Strings = (
'select APVEN_COMPANY '
' , APVEN_ID'
' , APVEN_ADDR1'
' , APVEN_ADDR2'
' , APVEN_CITY'
' , APVEN_STATE'
' , APVEN_ZIP'
' , APVEN_PHONE'
'from apVendor')
KeyLinks.Strings = (
'APVendor.APVen_ID=Inv.Inv_SRR_APVen_ID')
KeyDescLinks.Strings = (
'apVendor.APVEN_COMPANY=xAPVEN_COMPANY')
KeySource = dsInv
OrderingItemNo = 1
OrderingItems.Strings = (
'Name=APVEN_COMPANY;APVEN_COMPANY desc')
OrderingLinks.Strings = (
'APVEN_COMPANY=ITEM=1')
Left = 298
Top = 3
ParamValues = (
'OLNK_APVEN_COMPANY=')
end
object qyInv: TIB_Query
DatabaseName = 'C:\Offroad\IB\ORInventory.gdb'
IB_Connection = formIBData.cnMain
SQL.Strings = (
'Select inv.*,'
' (select APVEN_COMPANY from apVendor'

' where inv.inv_SRR_APVen_ID = apVendor.APVEN_ID) as xAPVE' +
'N_COMPANY'
'from inv'
'where inv_part = :part')
DefaultValues.Strings = (
'INV_PROCFLAG=F')
GeneratorLinks.Strings = (
'Inv.Inv_ID=gen_Inv_id')
GetServerDefaults = True
KeyLinks.Strings = (
'INV.INV_ID')
PessimisticLocking = True
RequestLive = True
Left = 88
end