At 09:35 AM 7/3/2003 -0700, Victor Timmons wrote:
how do i create a speedsheet from a view with column names
Victor,
Use #TBLVIEWS to get the list of Tables/View.
Use #COLUMNS IN TableViewName to get the list of Columns in Table/View.
Very Quick and Simple Example:
CLS SET VAR vTitle = 'Select Table' SET VAR vCaption TEXT = 'Dynamic Spread Sheets!' SET VAR vLines INTEGER = 16 SET VAR vTableName TEXT = NULL
LABEL LTables CLS CHOOSE vTableName FROM #TBLVIEWS AT 6 32 CHKBOX 1 + TITLE .vTitle CAPTION .vCaption LINES .vLines FORMATTED IF vTableName = '[Esc]' THEN GOTO Done ENDIF IF vTableName IS NULL THEN CLS PAUSE 2 USING 'No Table Selected ...' + CAPTION .vCaption AT 16 20 GOTO LTables ENDIF
SELECT Sys_Table_ID INTO vTableID INDIC IvTableID FROM + Sys_Tables WHERE Sys_Table_Name = .vTableName
SELECT COUNT(*) INTO vLines INDIC IvLines FROM + Sys_Columns WHERE Sys_Table_ID = .vTableID IF vLines > 16 THEN SET VAR vLines = 16 ENDIF
LABEL LColumns
CLS
SET VAR vCaption = ('Spread Sheet Data for:'&.vTableName)
SET VAR vTitle = 'Select Column(s) or [Shift+F6] for All'
CHOOSE vColumns FROM #COLUMNS IN .vTableName AT 6 26 +
CHKBOX TITLE .vTitle CAPTION .vCaption LINES .vLines +
FORMATTED
IF vColumns = '[Esc]' THEN
GOTO Done
ENDIF
IF vColumns IS NULL THEN
CLS
PAUSE 2 USING 'No Column(s) Selected ...' +
CAPTION .vCaption AT 16 20
GOTO LColumns
ENDIF-- Do what you have to do here ... -- And so on ......
LABEL Done CLEAR VAR ..... RETURN
Enjoy and make sure to have fun!
Very Best R:egards,
Razzak.
