想做一個3級樹結構，在添加第三級節點時候報錯
第一級是序號，第二級是姓名，第三級是日期
這個代碼運行的時候報錯 element not found..
This.LineStyle= 1 && tvwRootLines
This.Style= 7 && tvwTreelinesPlusMinusPictureText
This.ImageList=Thisform.Imagelist1 &&與Imagelist控制元件建立關聯
sele xuhao
replace ALL 專案編號 with"B"+ALLTRIM(STR(RECNO()))
replace ALL key with"C"+ALLTRIM(STR(RECNO()))
replace ALL key2 with"D"+ALLTRIM(STR(RECNO()))
replace ALL key3 with"E"+ALLTRIM(STR(RECNO()))
sele xuhao1
replace ALL 專案編號 with"B"+ALLTRIM(STR(RECNO()))
replace ALL key with"C"+ALLTRIM(STR(RECNO()))
replace ALL key2 with"D"+ALLTRIM(STR(RECNO()))
replace ALL key3 with"E"+ALLTRIM(STR(RECNO()))
SELECT xuhao
SET DELETED ON
GO TOP
DO WHILE !EOF()
&&添加部門節點，以唯一的部門編號欄位作為控制元件的Key
This.Nodes.Add(,,ALLTRIM(xuhao.專案編號),;
ALLTRIM(xuhao.序號),1,2)
*（ 屬于，子節點，名稱，標題）節點的名稱就用編號，子節點的屬于就用節點的名稱，就是部門編號。
SELECT xuhao1
SET DELETED ON
SET FILTER TO ALLTRIM(xuhao1.專案編號)=;
ALLTRIM(xuhao.專案編號)
GO TOP
&&添加部門中人員節點，以唯一的Key欄位值作為控制元件的Key
DO WHILE !EOF()
This.Nodes.Add(ALLTRIM(xuhao.專案編號),4,;
ALLTRIM(xuhao1.Key),ALLTRIM(xuhao1.姓名),3,3)
SKIP
*****treeview 第三級begin 修改這部分
SELECT xuhao2
SET DELETED ON
SET FILTER TO ALLTRIM(xuhao2.key2)=;
ALLTRIM(xuhao1.key2)
GO TOP
&&添加部門中人員節點，以唯一的Key欄位值作為控制元件的Key
DO WHILE !EOF()
This.Nodes.Add(ALLTRIM(xuhao1.key2),4,;
ALLTRIM(xuhao2.Key3),ALLTRIM(xuhao2.聯系人),3,3)
SKIP
ENDDO
*****treeview 第三級end
ENDDO
SELECT xuhao
SKIP
ENDDO
SELECT xuhao1
SET FILTER TO
GO TOP
SELECT xuhao2
GO TOP
uj5u.com熱心網友回復：
第二級的鍵值用的是 ALLTRIM(xuhao1.Key)但第三級用的上級鍵值是 ALLTRIM(xuhao1.key2)
key2和key一樣嗎？ 是不是key2改成key就好了？
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/81793.html
標籤：VFP
上一篇：Excel折線圖 橫坐標間距調整