John thank you - but I ran your program and had the same results - just the first column appears in the display - I am will not report this a a bug
J

On 1/29/2010 9:50 AM, John Engwer wrote:

Hi J.

I use the #Columns choose in various applications. Below is a snippet code that I use for maintenance in one of my vertical apps to select columns.

*SET* *VAR* vColList *TEXT* *=* *NULL*
*CHOOSE* vColList *FROM* *#**COLUMNS* *IN* *&*vTabList *+*
*CHKBOX* 0 *+*
*TITLE* 'COLUMN LIST' *+*
*CAPTION* 'Select columns' *+*
*LINES* 25 *+*
*FORMATTED* *+*
*OPTION* *WINDOW_CAPTION* SMALL *+*
*|**TITLE_BACK_COLOR* *WHITE* *+*
*|**TITLE_FONT_NAME* TIMES *NEW* ROMAN *+*
*|**TITLE_FONT_SIZE* 24 *+*
*|**TITLE_FONT_COLOR* *TEAL* *+*
*|**TITLE_BOLD* *OFF* *+*
*|**TITLE_ITALIC* *OFF* *+*
*|**TITLE_UNDERLINE* *OFF* *+*
*|**TITLE_STRIKEOUT* *OFF* *+*
*|**LIST_BACK_COLOR* *TEAL* *+*
*|**LIST_FONT_NAME* VERDANA *+*
*|**LIST_FONT_SIZE* 12 *+*
*|**LIST_FONT_COLOR* *WHITE* *+*
*|**LIST_BOLD* *OFF* *+*
*|**LIST_ITALIC* *OFF* *+*
*|**LIST_UNDERLINE* *OFF* *+*
*|**LIST_STRIKEOUT* *OFF* *+*
*|**WINDOW_BACK_COLOR* *WHITE* *+*
*|**BUTTON_OK_CAPTION* OK *+*
*|**BUTTON_CANCEL_CAPTION* *Cancel* *+*
*|**BUTTONS_BACK_COLOR* *WHITE* *+*
*|**BUTTONS_SHOW_GLYPH* *ON
*
*SET* *CLIPBOARD* *.*vColList
*return*

John

*From:* [email protected] [mailto:[email protected]] *On Behalf Of *J BLAUSTEIN
*Sent:* Thursday, January 28, 2010 10:04 PM
*To:* RBASE-L Mailing List
*Subject:* [RBASE-L] - ver 9-64 most recent upload choose column option

is any body experiencing a problem with the below command - I am testing it on the rbti sample database the employee table - when the command displays the programs shows only the first column name.
clear var vcolumn; choose vcolumn from #columns in Employee
-

*J. Blaustein*

*J Blaustein Associates, Inc.*

*        12 Herrick Drive*

*    Lawrence, NY 11559*

*516-371-3445 FAX 516-345-8009*





--

*J. Blaustein*

*J Blaustein Associates, Inc.*

* 12 Herrick Drive*

* Lawrence, NY 11559*

*516-371-3445 FAX 516-345-8009*

Reply via email to