Damon
Here is a snippet of code which will set you right:
SELECT COUNT(*) INTO vcount &vwhere AND LIMIT = 201
IF vcount > 200 THEN
DIALOG 'Enter first characters of Company name [Esc] to quit'=39 +
vresponse=20=13 vendkey 1 CAPTION 'Check contact details'
IF vendkey = '[Esc]' THEN
RETURN
ENDIF
SET V vwhere = (.vwhere&'AND Company_name LIKE'&CHAR(39)+.vresponse+ +
'%'+CHAR(39))
SELECT COUNT(*) INTO vcount &vwhere AND LIMIT = 20
IF vcount = 0 THEN
SET V vmessage = ('No Companies starting with'&.vresponse+'.')
PAUSE 2 USING .vmessage=40 CAPTION 'Check contact details' +
AT CENTER CENTER
RETURN
ENDIF
ENDIF
CHOOSE vchoose FROM #VALUES FOR company_name,company_reference &vwhere +
ORDER BY company_name +
AT 5 5 TITLE 'Choose company' CAPTION 'Choose company' LINES .vcount
IF vchoose = '[Esc]' THEN
RETURN
ENDIF
Ian
At 10:10 28/01/2002 -0500, you wrote:
>In a message dated 1/27/2002 6:04:30 PM Eastern Standard Time,
>[EMAIL PROTECTED] writes:
>
><< Damon, the list returned is too many items. How we get around this is to
>dialog a filter on the first character(s) of the list before popping up the
>menu.
> >>
>First, I want to apologize for posting this without a subject line. My
>mistake, and my apologies to the list
>
>Now, on to the question.
>
>I understand the too many items part, and the filter. However, the items
>still came up in the sorted order, and allowed me to choose one. It APPEARS
>that all items in the table came up in it's entirety. There are 1222 rows in
>the table from which to choose, and I wouldn't think this was a sort
>limitation in RBase, but I may be wrong.
>I WILL get the latest patches installed today or tomorrow, and see what
>happens. If this is something that hasn't been addressed yet, maybe in patch
>2? <g>
>Thanks
>
>Damon D. Kaufman
>President
>Stalder Spring Works, Inc
>ISO-9002 / QS-9000 Certified
>2345 S. Yellow Springs St.
>Springfield, Ohio 45506
>Voice 937-322-6120
>Fax 937-322-2126
>email: [EMAIL PROTECTED]
>================================================
>TO SEE MESSAGE POSTING GUIDELINES:
>Send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: INTRO rbase-l
>================================================
>TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: UNSUBSCRIBE rbase-l
>================================================
>TO SEARCH ARCHIVES:
>http://www.mail-archive.com/rbase-l%40sonetmail.com/
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
