VFP 愛用者社區

zzbdyx · 註冊時間: 2004-02-04 文章: 37 第 1 樓

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 · 發表於: 星期一三月 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