VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

請教高手!!為什麼我的迴圈不會動!!哪裡出錯了!

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
sthuang66



註冊時間: 2014-04-27
文章: 166


第 1 樓

發表發表於: 星期一 八月 16, 2021 3:30 pm    文章主題: 請教高手!!為什麼我的迴圈不會動!!哪裡出錯了! 引言回覆

我想破頭!不知哪裡少了!! 我的資料如下
RE1, RE2,RE3,RE4,RE5,RE6 六個檔將其中計算後用EXCEL輸出成TABLE_1,TABLE_2,TABLE_3,TABLE_4,TABLE_5,TABLE_6
---------------------------------------------------------------------------
代碼:

SET SAFETY OFF
PUBLIC A,B,C,BR,RE
FOR B=1 TO 6
   BR=ALLTRIM(STR(B))
   RE="RE"+BR
   ?RE
   **原始資料基本數據
   SELECT ID,SUM(ORDER) AS NO FROM &RE GROUP BY 1 ORDER BY 2 DESC INTO TABLE A1
   SELECT SUM(NO) AS ALL,COUNT(ID) AS HS,AVG(NO) AS AVG FROM A1 INTO TABLE A2
   CLOSE DATABASES ALL
   USE A2
   A=ALL
   B=HS
   C=AVG
   USE
   OLE=CREATEOBJECT("EXCEL.APPLICATION")
   OLE.VISIBLE=.T.
   OLE.WORKBOOKS.ADD
   OLE.RANGE('A1').VALUE='項目'
   OLE.RANGE('A2').VALUE='總數'
   OLE.RANGE('A3').VALUE='ID數'
   OLE.RANGE('A4').VALUE='平均數'
   OLE.RANGE('B1').VALUE='原始資料'
   OLE.RANGE('B2').VALUE=A
   OLE.RANGE('B3').VALUE=B
   OLE.RANGE('B4').VALUE=C
   O = OLE.ACTIVESHEET
   BB = O.RANGE("A:A","D:D")
   WITH BB
      .SELECT
      .COLUMNWIDTH = 24
      .FONT.NAME = "新細明體"
      .FONT.FONTSTYLE = "標準"
      .FONT.SIZE = 12
   ENDWITH
   OLE.ACTIVEWORKBOOK.SAVEAS("table1_"+BR+".xls",-4143,"","", .F., .F.)
   OLE.WORKBOOKS.CLOSE
   OLE.QUIT
ENDFOR
回頂端
檢視會員個人資料 發送私人訊息
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 2 樓

發表發表於: 星期一 八月 16, 2021 5:58 pm    文章主題: 引言回覆

代碼:

FOR B=1 TO 6

B=HS ??????????????


ENDFOR

[/quote]
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
sthuang66



註冊時間: 2014-04-27
文章: 166


第 3 樓

發表發表於: 星期一 八月 16, 2021 7:22 pm    文章主題: 引言回覆

謝謝提醒!!變數重複了
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 4 樓

發表發表於: 星期一 八月 16, 2021 9:09 pm    文章主題: 引言回覆

小時候買的書說,
不要用沒有意義的變數名稱,
現代的開發工具都可以寫成夠長夠能辨識用途的變數名稱

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作