I never argue with you Razzak! But ODBC to EXCEL is in my Mind Excellent! Almost as good as reports to PDF in 7.0 Anyway since my socks are on I pray for release of 7.0 before it becomes 7.1 Gunnar
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of A. Razzak Memon Sent: den 3 juli 2003 18:48 To: RBASE-L Mailing List Subject: [RBASE-L] - Re: speedsheet from a view - Razzak's Reply 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.
