You can only search by the first field in a combo box, in your case, the ID. You'd have to make the 2nd column the first in order to search using the "space" trick.
Fred On Wed, Nov 24, 2010 at 2:16 PM, MB Software Solutions, LLC <[email protected]> wrote: > On 11/24/2010 4:05 PM, MB Software Solutions, LLC wrote: >> On 11/24/2010 3:50 PM, Fred Taylor wrote: >>>> Really? It works fine when I try it. Let me try your sample data and >>>> I'll see what I come up with. >> >> >> "iid" "cname" >> "178" "BV ALLEGHENY WOOD PRODUCTS" >> "179" "BV BLUE TRIANGLE HARDWOODS" >> "180" "BV BROWNLEE LUMBER COMPANY" >> "181" "BV BWP HARDWOODS" >> "182" "BV CAMERON LUMBER LLP" >> "187" "BV CUMMINGS LUMBER COMPANY INC" >> "189" "BV D&D WOOD SALES, INC " >> "204" "BV DIXIE LYON LUMBER COMPANY" >> "193" "BV DWIGHT LEWIS LUMBER COMPANY" >> "210" "BV EAST COAST LUMBER" >> "156" "LH ANDREWS FOREST PRODUCTS, INC." >> "128" "LH BOIS AISE DE MONTREAL INC" >> "121" "LH BRADFORD FOREST" >> "4" "LH BRANDON DISTRIBUTORS, INC." >> "161" "LH CAREAU BOIS" >> "146" "LH CENTRE PALLETS, LLC" >> "69" "LH CLARKBURGER LUMBER" >> "172" "LH COLONIAL FOREST PRODUCTS" >> "72" "LH CORNERSTONE FOREST" >> "133" "LH CROPPER BROTHERS LUMBER" >> > > > Here's the object code via Class Browser: > ADD OBJECT cbodist AS cbobase WITH ; > BoundColumn = 6, ; > ColumnCount = 6, ; > ColumnWidths = "200,150,150,25,50,0", ; > ControlSource = "vOrdHdr.iDistID", ; > Height = 23, ; > Left = 12, ; > Style = 2, ; > TabIndex = 11, ; > Top = 72, ; > Width = 492, ; > ZOrderSet = 8, ; > BoundTo = .T., ; > DisplayCount = 20, ; > Name = "cboDist" > > PROCEDURE cbodist.KeyPress > LPARAMETERS nKeyCode, nShiftAltCtrl > > IF nKeyCode = 32 THEN > NODEFAULT > DODEFAULT(160,nShiftAltCtrl) > ENDIF > ENDPROC > > > PROCEDURE cbodist.Init > LOCAL lcName as String > SELECT vluDist > SCAN FOR nactive=1 > lcName = CHRTRAN(vluDist.cName,CHR(32),CHR(160)) > this.additem(lcName) > this.AddListItem(cContact,this.NewItemId,2) > this.AddListItem(cCity,this.NewItemId,3) > this.AddListItem(cState,this.NewItemId,4) > this.AddListItem(cZip,this.NewItemId,5) > this.AddListItem(ALLTRIM(STR(iid)),this.NewItemId,6) > ENDSCAN > ENDPROC > > > -- > Mike Babcock, MCP > MB Software Solutions, LLC > President, Chief Software Architect > http://mbsoftwaresolutions.com > http://fabmate.com > http://twitter.com/mbabcock16 > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[email protected] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
