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
_______________________________________________
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.
