|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
zzbdyx
註冊時間: 2004-02-04 文章: 37
第 1 樓
|
發表於: 星期一 三月 16, 2009 2:40 pm 文章主題: BOM用TREEVIEW來顯示結構,請高手指教 |
|
|
BOM表結構
Par_lpbh 父件料號
Com_lpbh 子件料號
Qty 單位用量
Hsbl 損耗
記錄:
A B 2 1%
A C 1 2%
B D 1 1%
B E 2 1%
D H 1 2%
C D 2 1%
通過遞歸得到查詢A的BOM結構如圖
現在想通過TREEVIEW來顯示A的BOM樹狀圖,請教算法如何實現!
在一個產品中如存在不同物料引用同一個物料時好像TREEVIEW無能為力了
請高手指教
如不存在不同物料的引用則相對簡單,對查詢得到的BOM結構圖使用
SCAN
IF ALLTRIM(zlpbh)==ALLTRIM(thisform.txtlpbh.value)
THISform.ole1.Nodes.Add('N'+ALLTRIM(ZLPBH),4,'N'+ALLTRIM(lpbh),ALLTRIM(lpbh)+'_'+'('+ALLTRIM(STR(QTY,20,4))+' '+ALLTRIM(lpdw)+')',6,6)
ELSE
THISform.ole1.Nodes.Add('N'+ALLTRIM(zlpbh),4,'N'+ALLTRIM(jc)+ALLTRIM(lpbh),ALLTRIM(lpbh)+'_'+'('+ALLTRIM(STR(QTY,20,4))+' '+ALLTRIM(lpdw)+')',6,6)
ENDIF
ENDSCAN |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4215 來自: Taipei,Taiwan
第 2 樓
|
發表於: 星期一 三月 16, 2009 3:46 pm 文章主題: |
|
|
你想歪了.
由bom展開結果反推為treeview,
關鍵在找出node 及 node stack 的 push down/pop up.
不知道原始結構都可以.
只要你確定你展開的結果是正確的就好
你的順序不是:
A B 2
A C 1
B D 1
B E 2
D H 1
C D 2
而是
A A 0
A B 1
B D 2
D H 3
B E 2
A C 1
C D 2
D H 3 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|