http://vfp.sunyear.com.tw/ 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載. garfield@sunyear.com.tw http://blogs.law.harvard.edu/tech/rss RSS Feed 2.2.4 Thu, 27 Aug 2026 03:48:10 GMT http://vfp.sunyear.com.tw/templates/subSilver/images/logo_phpBB_med.gif http://vfp.sunyear.com.tw/ 122 56 http://vfp.sunyear.com.tw/viewtopic.php?p=37048#37048 Fri, 21 Aug 2026 07:10:33 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37048#37048 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> 發表於: 星期五 八月 21, 2026 3:10 pm (GMT 8)<br /> <br /><span class="postbody"> <span style="font-size: 24px; line-height: normal"><span style="color: red">public my_empty_object 與 public my_array[100,3] 的差異</span></span> <br /> <br /> <span style="color: blue">在 Visual FoxPro 9 中，PUBLIC my_empty_object（搭配 CREATEOBJECT('EMPTY')）與二維陣列 PUBLIC my_array[100,3] 的核心差異在於資料模型、變數池耗用、存取方式與維護成本：</span> <br /> 有圖形,請看附件word檔</span><br /> CPS0204 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37048 http://vfp.sunyear.com.tw/viewtopic.php?p=37047#37047 Fri, 21 Aug 2026 07:05:22 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37047#37047 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> 發表於: 星期五 八月 21, 2026 3:05 pm (GMT 8)<br /> <br /><span class="postbody"> <span style="font-size: 24px; line-height: normal"><span style="color: blue">createobject('empty') 創造的是全域可見的物件嗎?</span></span> <br /> <span style="color: red">不是，CREATEOBJECT('EMPTY') 本身並不會自動創造出全域可見的物件。</span> <br /> <span style="font-size: 24px; line-height: normal"> <br /> <span style="color: green">物件的可見範圍（Scope）與生命週期，完全取決於存放它的「變數宣告方式」，而不是物件類別本身。 <br /> 一、 變數宣告決定它的可見範圍 <br /> 宣告方式 可見範圍（Scope） 生命週期 <br /> LOCAL loObj <br /> loObj = CREATEOBJECT('EMPTY') 區域可見（局部） <br /> <br /> 只有宣告它的該段 Procedure / Method 內部看得到。 當該函式或事件執行完畢（RETURN）時，物件立即自動消滅釋放。 <br /> <br /> <br /> PRIVATE loObj <br /> loObj = CREATEOBJECT('EMPTY') 向下層可見 <br /> 當前函式以及其呼叫的所有子程序（Sub-routine）看得到。 當定義它的母程序結束時消滅。 <br /> <br /> <br /> PUBLIC goObj <br /> goObj = CREATEOBJECT('EMPTY') 全系統全域可見（Global） <br /> </span></span> <br /> <br /> 整個 ERP 系統的任何 PRG、Form、Report、Menu 皆可隨時讀寫。 直到系統關閉（QUIT）或手動執行 RELEASE goObj。 <br /> 二、 為什麼常讓人誤以為它是「全域」？（跨 DataSession 特性） <br /> 大家常說 EMPTY 物件具備「穿透性」，容易讓人誤會它是全域的。實際上它指的是：物件在記憶體中的參考（Reference）可以安全地「跨私有表單（DataSession = 2）傳遞與存取」，而不會像 Table/Cursor 那樣被工作階段隔離。 <br /> 1. 區域物件（LOCAL）也能傳給私有表單： <br /> 即便物件是以 LOCAL 宣告，只要透過參數傳入私有表單，子表單就能直接使用該物件實體： <br /> 程式碼片段 <br /> * 主程式 (DataSession = 1) <br /> LOCAL loParam <br /> loParam = CREATEOBJECT("EMPTY") <br /> = ADDPROPERTY(loParam, "CustNo", "C001") <br /> <br /> * 傳入私有表單 (DataSession = 2) <br /> DO FORM frm_CustDetail WITH loParam <br /> 2. 若要做到真正「全系統到處免傳參直接存取」，必須宣告為 PUBLIC 或掛在 _SCREEN： <br /> • 做法 A：宣告為 PUBLIC 變數 <br /> 程式碼片段 <br /> * MAIN.PRG 系統啟動時 <br /> PUBLIC goSysParam <br /> goSysParam = CREATEOBJECT("EMPTY") <br /> = ADDPROPERTY(goSysParam, "CompanyID", "KS01") <br /> = ADDPROPERTY(goSysParam, "TaxRate", 0.05) <br /> <br /> * 系統內任何表單皆可隨時讀取： <br /> ? goSysParam.CompanyID <br /> • 做法 B：掛載在 _SCREEN 或 _VFP 系統物件上（免 PUBLIC 變數） <br /> 程式碼片段 <br /> * 直接掛在主畫面上，全系統永遠可見且不會被 CLEAR ALL 誤刪 <br /> = ADDPROPERTY(_SCREEN, "oSysParam", CREATEOBJECT("EMPTY")) <br /> = ADDPROPERTY(_SCREEN.oSysParam, "CompanyID", "KS01") <br /> <br /> * 任何表單調用： <br /> ? _SCREEN.oSysParam.CompanyID</span><br /> CPS0204 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37047 http://vfp.sunyear.com.tw/viewtopic.php?p=37046#37046 Fri, 21 Aug 2026 07:02:38 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37046#37046 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> 發表於: 星期五 八月 21, 2026 3:02 pm (GMT 8)<br /> <br /><span class="postbody"> <span style="font-size: 18px; line-height: normal"><span style="color: red">CREATEOBJECT('EMPTY') 用法</span></span> <br /> <br /> <br /> <br /> 在 Visual FoxPro 中，EMPTY 是一個非常特殊的底層輕量類別（Lightweight Base Class）。 <br /> 它與一般的 Custom 或 Form 類別不同：EMPTY 物件「沒有任何內建的屬性、方法或事件（No PEMs）」。它純粹就是一塊乾淨的記憶體空間，專門用來當作輕量資料結構（Data Structure / Record），用來在函式、類別以及私有表單（DataSession = 2）之間傳遞資料。 <br /> 一、 EMPTY 物件的核心特點 <br /> 1. 極度輕量、節省記憶體：沒有繼承任何 Visual FoxPro 基礎物件的多餘負擔（如 Name、Class、Init 等都沒有）。 <br /> 2. 完全動態擴充：無法直接在上面寫程式碼（Method），但可以使用 ADDPROPERTY() 隨時掛載任意自訂屬性。 <br /> 3. 無縫穿透私有表單：不受 DataSession 隔離限制，可在不同表單與程序間自由傳遞。 <br /> 二、 基本使用方法：手動建立與賦值 <br /> 透過 ADDPROPERTY() 動態為物件新增屬性： <br /> 程式碼片段 <br /> LOCAL loUser <br /> loUser = CREATEOBJECT("EMPTY") <br /> <br /> * 為物件動態新增屬性：ADDPROPERTY(物件, 屬性名稱, 初始值) <br /> = ADDPROPERTY(loUser, "UserID", "MIS001") <br /> = ADDPROPERTY(loUser, "UserName", "張三") <br /> = ADDPROPERTY(loUser, "Age", 56) <br /> = ADDPROPERTY(loUser, "IsAdmin", .T.) <br /> <br /> * 取用屬性值（直接用 . 存取） <br /> ? loUser.UserID && 輸出: MIS001 <br /> ? loUser.UserName && 輸出: 張三 <br /> <br /> * 修改屬性值（直接賦值即可，不需要再呼叫 ADDPROPERTY） <br /> loUser.UserName = "李四" <br /> 三、 與資料表連動的高階用法（ERP 開發最常用） <br /> 在 VFP 中，EMPTY 物件最經典的應用是搭配 SCATTER NAME 與 GATHER NAME，取代傳統的記憶體變數或陣列： <br /> 1. 將目前資料列瞬間轉為 EMPTY 物件 <br /> 程式碼片段 <br /> USE Orders IN 0 <br /> SELECT Orders <br /> <br /> * 自動建立一個 EMPTY 物件 loRow，並將目前資料列的所有欄位自動掛載為屬性 <br /> SCATTER NAME loRow MEMO <br /> <br /> * 此時可直接讀取欄位名稱 <br /> ? loRow.OrderNo <br /> ? loRow.OrderDate <br /> ? loRow.TotalAmt <br /> <br /> * 修改物件內容 <br /> loRow.TotalAmt = loRow.TotalAmt * 0.9 <br /> <br /> * 將物件內容回寫進資料表 <br /> GATHER NAME loRow MEMO <br /> 四、 跨私有表單（DataSession）傳遞多筆參數 <br /> 當表單啟用私有工作階段（DataSession = 2）時，若要傳遞 5~6 個參數，傳統做法寫在 DO FORM frm_detail WITH ... 容易混亂，改傳一個 EMPTY 物件最乾淨： <br /> 1. 呼叫端（主表單） <br /> 程式碼片段 <br /> LOCAL loParam <br /> loParam = CREATEOBJECT("EMPTY") <br /> = ADDPROPERTY(loParam, "ActionType", "EDIT") <br /> = ADDPROPERTY(loParam, "OrderNo", "SO202608001") <br /> = ADDPROPERTY(loParam, "ItemNo", "A001") <br /> = ADDPROPERTY(loParam, "CanDelete", .F.) <br /> <br /> * 將整包物件傳入子表單 <br /> DO FORM frm_OrderDetail WITH loParam <br /> 2. 接收端（子表單 Init 事件） <br /> 程式碼片段 <br /> * 子表單 Form.Init <br /> LPARAMETERS toParam <br /> <br /> IF VARTYPE(toParam) == "O" <br /> ThisForm.cActionType = toParam.ActionType <br /> ThisForm.cOrderNo = toParam.OrderNo <br /> ThisForm.cmd_del.Enabled = toParam.CanDelete <br /> ENDIF <br /> 五、 與 Collection（集合）搭配：打造記憶體字典快取 <br /> 將多個 EMPTY 物件存入 Collection 中，能完全取代跨工作區容易被干擾的 Cursor： <br /> 程式碼片段 <br /> LOCAL oUserList, loEmp <br /> oUserList = CREATEOBJECT("Collection") <br /> <br /> * 建立第一筆資料物件 <br /> loEmp1 = CREATEOBJECT("EMPTY") <br /> = ADDPROPERTY(loEmp1, "EmpID", "E001") <br /> = ADDPROPERTY(loEmp1, "Name", "王大明") <br /> oUserList.Add(loEmp1, loEmp1.EmpID) <br /> <br /> * 建立第二筆資料物件 <br /> loEmp2 = CREATEOBJECT("EMPTY") <br /> = ADDPROPERTY(loEmp2, "EmpID", "E002") <br /> = ADDPROPERTY(loEmp2, "Name", "陳小美") <br /> oUserList.Add(loEmp2, loEmp2.EmpID) <br /> <br /> * 瞬間依 Key 取出物件並使用 <br /> IF oUserList.GetKey("E001") > 0 <br /> loTarget = oUserList.Item("E001") <br /> ? loTarget.Name && 輸出: 王大明 <br /> ENDIF <br /> 六、 輔助函數：檢測與移除屬性 <br /> • 檢查屬性是否存在（PEMSTATUS）： <br /> 程式碼片段 <br /> IF PEMSTATUS(loUser, "UserName", 5) <br /> ? "物件擁有 UserName 屬性" <br /> ENDIF <br /> • 移除屬性（REMOVEPROPERTY）： <br /> 程式碼片段 <br /> * 移除已掛載的屬性，釋放空間 <br /> = REMOVEPROPERTY(loUser, "IsAdmin") <br /> <br /> <span style="font-size: 24px; line-height: normal"></span></span><br /> CPS0204 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37046 http://vfp.sunyear.com.tw/viewtopic.php?p=37045#37045 Thu, 20 Aug 2026 22:26:19 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37045#37045 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> 主題: vfox9 有關陣列的所有使用方法,函數介紹<br /> 發表於: 星期五 八月 21, 2026 6:26 am (GMT 8)<br /> <br /><span class="postbody"> <span style="font-size: 18px; line-height: normal"><span style="color: red">在 Visual FoxPro 9 中，陣列（Array）是記憶體操作非常核心的一環。VFP 的陣列特性是：以 1 為基準（1-based）、單一陣列內可混合存放不同型別資料（數值、字元、日期、邏輯值甚至物件）、最多支援 二維（列與欄），且陣列內的所有元素共用變數池（MVCOUNT）。 <br /> 以下為您整理 VFP 9 中關於陣列的宣告與賦值、內建高頻函數、以及與 Table/SQL 互轉的高階指令。</span></span> <br /> <br /> <span style="font-size: 24px; line-height: normal">一、 陣列的宣告、賦值與基本特性</span> <br /> 1. 宣告陣列 <br /> 使用 DIMENSION、DECLARE 或搭配變數範圍關鍵字（LOCAL、PUBLIC、PRIVATE）： <br /> 程式碼片段 <br /> * 一維陣列 (5 個元素，預設值皆為 .F.) <br /> LOCAL laList[5] <br /> <br /> * 二維陣列 (10 列 x 3 欄) <br /> DIMENSION laMatrix[10, 3] <br /> <br /> * 全域陣列宣告 <br /> PUBLIC gaPower[100, 2] <br /> 2. 賦值與批量初始化 <br /> 程式碼片段 <br /> * 單一元素賦值 <br /> laList[1] = "ERP系統" <br /> laMatrix[1, 1] = "A001" <br /> laMatrix[1, 2] = 1500 <br /> <br /> * 批量全陣列賦值（直接對陣列名稱給值，所有元素都會變成該值） <br /> laList = 0 && 所有 5 個元素一次歸零 <br /> laMatrix = "" && 所有 30 個元素一次清為空字串 <br /> <br /> <br /> <span style="font-size: 18px; line-height: normal">二、 核心內建陣列函數一覽</span> <br /> 函數名稱 核心功能 常用情境 <br /> ALEN() 取得陣列元素個數或維度大小 計算總元素數、總列數、總欄數 <br /> ASCAN() 快速搜尋陣列內容 尋找某數值/字串在陣列中的位置 <br /> ASORT() 陣列排序 依指定欄位升冪或降冪排序 <br /> AINS() 插入元素 / 插入列 陣列中插入空位（會擠掉最後一筆） <br /> ADEL() 刪除元素 / 刪除列 刪除指定列（底層補空，需搭配 DIMENSION 縮容） <br /> ACOPY() 複製陣列內容 將來源陣列複製到目的陣列 <br /> AELEMENT() 二維座標 $(R, C)$ 轉為一維元素序號 將 [列, 欄] 換算為單一 Index <br /> ASUBSCRIPT() 一維元素序號轉為二維座標 $(R$ 或 $C)$ 搭配 ASCAN 查出該元素在第幾列 <br /> AFIELDS() 讀取目前資料表結構存入陣列 取得 Table 欄位名、型別、長度等中繼資料 <br /> ALINES() 將多行字串/文字依換行符號拆解進陣列 解析 Memo 欄位、文字檔或 SQL 語句 <br /> ADIR() 讀取硬碟目錄與檔案清單進陣列 檔案搜尋、抓取目錄下所有 .dbf / .scx <br /> AERROR() 取得最後一次系統錯誤資訊 ON ERROR 或 TRY...CATCH 中抓取錯誤原因 <br /> APRINTERS() 取得 Windows 系統所有安裝的印表機清單 印表機動態切換、預設印表機選取 <br /> AFONT() 取得系統所有已安裝的字型名稱 UI 介面字型設定 <br /> AMEMBERS() 取得物件（Object）的所有屬性、方法與事件 反射（Reflection）機制、動態遍歷物件 <br /> <br /> <br /> <span style="font-size: 24px; line-height: normal">三、 高頻核心函數詳解與實戰範例</span> <br /> 1. ALEN(ArrayName [, nArrayAttribute]) — 計算長度與維度 <br /> • ALEN(laArr) 或 ALEN(laArr, 0)：傳回總元素數量。 <br /> • ALEN(laArr, 1)：傳回總列數（Rows）（一維陣列則傳回總元素數）。 <br /> • ALEN(laArr, 2)：傳回總欄數（Columns）（若是一維陣列則傳回 0）。 <br /> 程式碼片段 <br /> DIMENSION laData[50, 4] <br /> ? ALEN(laData) && 200 (總元素數) <br /> ? ALEN(laData, 1) && 50 (列數) <br /> ? ALEN(laData, 2) && 4 (欄數) <br /> 2. ASCAN(ArrayName, eExpression [, nStart [, nElements [, nColumn [, nFlags]]]]) — 陣列搜尋 <br /> 這是 VFP 9 最強大的搜尋函數。VFP 9 支援第 6 個參數 nFlags，大幅簡化二維陣列查詢。 <br /> 程式碼片段 <br /> DIMENSION laUser[3, 2] <br /> laUser[1, 1] = "ADMIN" <br /> laUser[1, 2] = "系統管理員" <br /> laUser[2, 1] = "MIS01" <br /> laUser[2, 2] = "資訊人員" <br /> laUser[3, 1] = "SALES" <br /> laUser[3, 2] = "業務專員" <br /> <br /> * 傳統做法：ASCAN 傳回一維序號，再用 ASUBSCRIPT 轉成列號 <br /> lnElem = ASCAN(laUser, "MIS01") <br /> IF lnElem > 0 <br /> lnRow = ASUBSCRIPT(laUser, lnElem, 1) <br /> ? "找到在第 " + STR(lnRow) + " 列，職稱是：" + laUser[lnRow, 2] <br /> ENDIF <br /> <br /> * VFP 9 推薦做法 (利用 nFlags = 15: 完全相符、精確比對、直接傳回列號，並指定只找第 1 欄) <br /> * 語法：ASCAN(陣列, 搜尋值, 起始點, 搜尋範圍, 指定欄位, Flags) <br /> lnRow = ASCAN(laUser, "MIS01", 1, -1, 1, 15) <br /> IF lnRow > 0 <br /> ? "直接取得列號：", lnRow && 輸出 2 <br /> ENDIF <br /> 3. ASORT(ArrayName [, nStart [, nElements [, nSortOrder [, nColumn]]]]) — 陣列排序 <br /> • nSortOrder：0 或省略為升冪（Ascending），1 為降冪（Descending）。 <br /> • nColumn：二維陣列指定以哪一欄作為排序基準。 <br /> 程式碼片段 <br /> DIMENSION laScore[3, 2] <br /> laScore[1, 1] = "張三"; laScore[1, 2] = 85 <br /> laScore[2, 1] = "李四"; laScore[2, 2] = 95 <br /> laScore[3, 1] = "王五"; laScore[3, 2] = 72 <br /> <br /> * 依第 2 欄（分數）進行「降冪排序」 <br /> ASORT(laScore, 1, -1, 1, 2) <br /> 4. ADEL() 與 AINS() — 刪除與插入列 <br /> ⚠️ 重要觀念：VFP 的 ADEL 與 AINS 不會自動改變陣列大小！ <br /> • ADEL 只是將指定資料抹除並往前移，最後一筆會留下 .F.，因此刪除後必須手動 DIMENSION 縮小。 <br /> • AINS 插入空位時，會把最後一筆資料擠出陣列丟棄，因此插入前必須先 DIMENSION 放大。 <br /> 程式碼片段 <br /> * 示範二維陣列安全刪除第 2 列： <br /> DIMENSION laArr[3, 2] <br /> ADEL(laArr, 2, 2) && 參數 2: 第 2 列; 參數 2: 代表以「列(Row)」為單位刪除 <br /> DIMENSION laArr[2, 2] && 重新定義縮小一列 <br /> 5. ALINES(ArrayName, cText [, nFlags [, cParseChar]]) — 字串拆解進陣列 <br /> 在處理 SQL 傳回的字串、文字檔、CSV 時極為常用： <br /> 程式碼片段 <br /> LOCAL lcStr, lnCount <br /> lcStr = "蘋果,香蕉,芭樂,鳳梨" <br /> <br /> * 依逗號拆解成一維陣列 <br /> lnCount = ALINES(laFruits, lcStr, 1, ",") <br /> FOR i = 1 TO lnCount <br /> ? laFruits[i] <br /> ENDFOR <br /> <br /> <br /> <br /> <span style="font-size: 18px; line-height: normal">四、 陣列與資料表（DBF / Cursor / SQL）的交互指令</span> <br /> VFP 提供了極為高效的命令，讓陣列能與資料庫記錄秒級互轉： <br /> 1. SELECT ... INTO ARRAY <br /> 直接將 SQL 查詢結果一次性倒入二維陣列中（若有符合資料，_TALLY 會記錄實際抓到的列數）： <br /> 程式碼片段 <br /> SELECT CustID, CustName, Tel FROM Customer WHERE Status = 'A' INTO ARRAY laCust <br /> <br /> IF _TALLY > 0 <br /> ? "共載入 " + STR(_TALLY) + " 筆客戶資料" <br /> ? "第一筆客戶：", laCust[1, 2] <br /> ENDIF <br /> 2. SCATTER TO 與 GATHER FROM（單筆資料錄與陣列互轉） <br /> 常用於單據畫面的「暫存、修改、還原」： <br /> 程式碼片段 <br /> USE Orders IN 0 <br /> SELECT Orders <br /> <br /> * 將目前游標所在的那一筆紀錄，所有欄位值倒入一維陣列 laOrder <br /> SCATTER TO laOrder MEMO <br /> <br /> * 修改陣列中的值 <br /> laOrder[3] = 9999 <br /> <br /> * 將陣列值回寫覆蓋目前資料錄 <br /> GATHER FROM laOrder MEMO <br /> 3. COPY TO ARRAY 與 APPEND FROM ARRAY（多筆批次互轉） <br /> 適用於本地端 DBF / Cursor 與二維陣列進行大批量資料搬移： <br /> 程式碼片段 <br /> * 1. 將整張暫存表資料倒入陣列 <br /> SELECT cur_details <br /> COPY TO ARRAY laDetails FIELDS ItemNo, Qty, Price FOR Qty > 0 <br /> <br /> * 2. 在另一張空 Cursor 中，一次性批次將陣列倒回資料表 <br /> SELECT cur_target <br /> APPEND FROM ARRAY laDetails <br /> <br /> <br /> <br /> <span style="font-size: 24px; line-height: normal">五、 陣列在 VFP 9 中的限制與注意事項</span> <br /> 1. 二維限制：VFP 僅支援最多二維陣列 [Row, Col]，不支援三維以上。若需要多層巢狀結構，建議改用物件（EMPTY Object）或 Collection。 <br /> 2. 容量上限：VFP 9 單一陣列的元素總數量上限為 2,000,000（200 萬個元素）。 <br /> 3. 變數池佔用（MVCOUNT）： <br /> o 陣列中的每一個元素都會消耗一個變數計數。 <br /> o 若經常使用大型陣列（如 [1000, 10] 消耗 10,000 個變數），必須在 Config.fpw 中配置 MVCOUNT = 65000，避免觸發 Too many variables。 <br /> 4. 傳遞陣列至 Procedure / Function： <br /> o VFP 預設是傳值（By Value），只會傳遞陣列的「第一個元素 laArr[1]」。 <br /> o 若要傳遞整個陣列，必須在名稱前加上 @ 符號（傳址 By Reference）： <br /> 程式碼片段 <br /> DIMENSION laMyData[5] <br /> = ProcessData(@laMyData) && 加上 @ 才會將整個陣列傳入</span><br /> CPS0204 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37045 http://vfp.sunyear.com.tw/viewtopic.php?p=37044#37044 Thu, 20 Aug 2026 22:15:38 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37044#37044 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6455" target="_blank">CPS0204</a><br /> 主題: 分享:全域可見的 CREATEOBJECT("Collection") 用法<br /> 發表於: 星期五 八月 21, 2026 6:15 am (GMT 8)<br /> <br /><span class="postbody"> <span style="font-size: 18px; line-height: normal"><span style="color: red">VFP 9 內建的 Collection（集合類別） 是極為強大卻常被低估的工具。它本質上是一個動態陣列 + 雜湊表（Hash Table/Dictionary）的綜合體，具備以下幾項在 ERP 開發中非常實用的高階技巧：</span></span> <br /> <br /> <span style="font-size: 18px; line-height: normal"><span style="color: blue">個人覺得我使用早期的public my_array[100,3] 搭配ascan 好用, <br /> 差別在:陣列會耗用 100*3 的變數個數( 變數池佔用（MVCOUNT）： <br /> o 陣列中的每一個元素都會消耗一個變數計數。) <br /> ,collection 只會占用一個變數</span></span> <br /> <br /> <span style="font-size: 24px; line-height: normal">技巧 1：實作 Key/Value 字典（大小寫敏感度設定）</span> <br /> Collection 預設的 Key 是區分大小寫的（Case-Sensitive）。在 ERP 比對功能代碼（如 F_ORDER001 vs f_order001）時，容易因為大小寫不同而查不到。 <br /> 解法：建立後立即將 KeySort = 2，即可關閉大小寫區分（或強制統一比對規則）： <br /> 程式碼片段 <br /> LOCAL oDict <br /> oDict = CREATEOBJECT("Collection") <br /> oDict.KeySort = 2 && 0=不排序, 1=升冪, 2=區分大小寫由系統設定/自動不區分 <br /> <br /> * 存入資料：Add(值, 鍵值) <br /> oDict.Add("1111", "F_ORDER001") <br /> <br /> * 取用資料（即使小寫也能精確命中） <br /> ? oDict.Item("f_order001") && 輸出: "1111" <br /> <br /> <br /> <br /> <span style="font-size: 18px; line-height: normal">技巧 2：安全取值（避免觸發 Error 報錯）</span> <br /> 如果直接使用 oCol.Item("XXX")，而該 Key 不存在時，VFP 會直接中斷並彈出 1562: Key is not found in collection 的執行時期錯誤。 <br /> 技巧：使用 GetKey("Key名稱") 先行探測，存在會傳回其索引序號（$> 0$），不存在則傳回 0： <br /> 程式碼片段 <br /> FUNCTION GetSafePower(toCol, tcProgKey) <br /> LOCAL lnKeyIndex <br /> lnKeyIndex = toCol.GetKey(tcProgKey) <br /> <br /> IF lnKeyIndex > 0 <br /> RETURN toCol.Item(tcProgKey) && 安全取出 <br /> ELSE <br /> RETURN "0000" && 預設完全無權限 <br /> ENDIF <br /> ENDFUNC <br /> <br /> <br /> <br /> <span style="font-size: 24px; line-height: normal">技巧 3：存放自訂物件（模擬「記憶體結構 / 紀錄」）</span> <br /> Collection 不僅能放字串或數值，還可以直接存放 EMPTY 物件（SCATTER NAME）。這是在私有表單（DataSession = 2）之間傳遞整筆資料錄最強大的技巧，完全不依賴實體 Table 或 Cursor： <br /> 程式碼片段 <br /> * 1. 建立存放使用者資料結構的集合 <br /> PUBLIC goUserCache <br /> goUserCache = CREATEOBJECT("Collection") <br /> <br /> * 2. 模擬從 SQL 撈出一筆紀錄並存入 Collection <br /> SELECT cur_user <br /> SCAN <br /> SCATTER NAME loRow MEMO && 將目前資料列包裝成一個物件 <br /> <br /> * 以員工編號作為 Key，物件作為 Value 存入集合 <br /> goUserCache.Add(loRow, ALLTRIM(cur_user.EmpNo)) <br /> ENDSCAN <br /> <br /> * 3. 在任何私有表單中調用該員工的完整欄位 <br /> IF goUserCache.GetKey("EMP001") > 0 <br /> loEmp = goUserCache.Item("EMP001") <br /> <br /> ThisForm.txt_name.Value = loEmp.EmpName <br /> ThisForm.txt_dept.Value = loEmp.DeptName <br /> ThisForm.txt_salary.Value = loEmp.BaseSalary <br /> ENDIF <br /> <br /> <br /> <br /> <span style="font-size: 24px; line-height: normal">技巧 4：使用 FOR EACH 快速走訪所有元素</span> <br /> 走訪 Collection 不需要寫 FOR i = 1 TO oCol.Count，直接用 FOR EACH 語法最精準且簡潔： <br /> 程式碼片段 <br /> LOCAL oItem, oCol <br /> oCol = CREATEOBJECT("Collection") <br /> oCol.Add("進貨單作業", "F_PUR001") <br /> oCol.Add("銷貨單作業", "F_SALE001") <br /> oCol.Add("庫存調整", "F_INV001") <br /> <br /> * 走訪集合內所有值 <br /> FOR EACH lcProgName IN oCol <br /> ? "作業名稱：", lcProgName <br /> ENDFOR <br /> <br /> * 若需要同時取得 Key 與 Value： <br /> FOR lnIdx = 1 TO oCol.Count <br /> ? "鍵值(Key):", oCol.GetKey(lnIdx), " => 內容(Value):", oCol.Item(lnIdx) <br /> ENDFOR <br /> <br /> <br /> <br /> <span style="font-size: 18px; line-height: normal">技巧 5：更新已存在的 Key（覆寫值技巧）</span> <br /> Collection 不允許重複 Add 同一個已存在的 Key（會報錯 1561: Key already exists）。若要更新某個 Key 的內容，必須先 Remove 再 Add： <br /> 程式碼片段 <br /> PROCEDURE SetCollectionValue(toCol, tcKey, tuValue) <br /> * 如果 Key 已存在，先移除舊的 <br /> IF toCol.GetKey(tcKey) > 0 <br /> toCol.Remove(tcKey) <br /> ENDIF <br /> <br /> * 寫入最新值 <br /> toCol.Add(tuValue, tcKey) <br /> ENDPROC <br /> <br /> <br /> <br /> <span style="font-size: 18px; line-height: normal">技巧 6：封裝成全域快取管理器（ Singleton 類別）</span> <br /> 在大型 ERP 架構中，通常會以 Collection 為基礎自訂一個全域快取類別，提供更友善的介面： <br /> 程式碼片段 <br /> * 主程式初始化 <br /> PUBLIC goCache <br /> goCache = CREATEOBJECT("AppCache") <br /> <br /> * 存入快取（不論存在與否直接覆寫） <br /> goCache.Set("CURRENT_EXRATE", 31.5) <br /> goCache.Set("AUTH_F_ORDER", "1111") <br /> <br /> * 取用快取（若不存在給予預設值，完全不報錯） <br /> lnRate = goCache.Get("CURRENT_EXRATE", 1.0) <br /> lcAuth = goCache.Get("AUTH_F_PUR", "0000") <br /> <br /> <br /> * ========================================= <br /> * 類別定義 <br /> * ========================================= <br /> DEFINE CLASS AppCache AS Custom <br /> PROTECTED oItems <br /> <br /> PROCEDURE Init <br /> This.oItems = CREATEOBJECT("Collection") <br /> This.oItems.KeySort = 2 <br /> ENDPROC <br /> <br /> PROCEDURE Set(tcKey, tuValue) <br /> tcKey = UPPER(ALLTRIM(tcKey)) <br /> IF This.oItems.GetKey(tcKey) > 0 <br /> This.oItems.Remove(tcKey) <br /> ENDIF <br /> This.oItems.Add(tuValue, tcKey) <br /> ENDPROC <br /> <br /> PROCEDURE Get(tcKey, tuDefault) <br /> tcKey = UPPER(ALLTRIM(tcKey)) <br /> IF This.oItems.GetKey(tcKey) > 0 <br /> RETURN This.oItems.Item(tcKey) <br /> ELSE <br /> RETURN tuDefault <br /> ENDIF <br /> ENDPROC <br /> <br /> PROCEDURE Has(tcKey) <br /> RETURN (This.oItems.GetKey(UPPER(ALLTRIM(tcKey))) > 0) <br /> ENDPROC <br /> <br /> PROCEDURE ClearAll <br /> This.oItems.Remove(-1) && 傳入 -1 一鍵清空整個集合 <br /> ENDPROC <br /> ENDDEFINE <br /> <span style="font-size: 24px; line-height: normal"><span style="color: red">總結 <br /> Collection 是 VFP 9 最理想的全域暫存與跨表單傳遞載體： <br /> • 傳入 -1 給 Remove(-1) 可一秒清空所有內容。 <br /> • 能存字串、數值、甚至 EMPTY 物件。 <br /> • 完全不受 DataSession 隔離限制，也絕不佔用任何 Work Area（工作區）。</span></span></span><br /> CPS0204 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37044 http://vfp.sunyear.com.tw/viewtopic.php?p=37043#37043 Fri, 14 Aug 2026 00:42:21 GMT http://vfp.sunyear.com.tw/viewtopic.php?p=37043#37043 發表人: <a href="http://vfp.sunyear.com.tw/profile.php?mode=viewprofile&u=6802" target="_blank">trial03</a><br /> 發表於: 星期五 八月 14, 2026 8:42 am (GMT 8)<br /> <br /><span class="postbody"> 谢谢分享，受益匪浅。</span><br /> trial03 VFP 討論區 http://vfp.sunyear.com.tw/posting.php?mode=quote&p=37043