|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
kuen
註冊時間: 2012-10-03 文章: 2
第 1 樓
|
發表於: 星期三 三月 19, 2014 1:36 pm 文章主題: TreeView 實例 求教 |
|
|
附加一則TreeView vfp9.0 實例 包括表單和2個表.
form_treeview.scx
form_treeview.SCT
tbldepartment.dbf
tblperson.dbf
執行form_treeview.scx 時,出問題. 求教各先進指正.
謝謝 !! |
|
回頂端 |
|
|
kuen
註冊時間: 2012-10-03 文章: 2
第 2 樓
|
發表於: 星期四 三月 20, 2014 10:46 am 文章主題: 上傳多些資料 |
|
|
TreeView vfp9.0 實例 包括表單和2個表.
form_treeview.scx
form_treeview.SCT
tbldepartment.dbf
tblperson.dbf
上列4檔案沒法附上. 又請教如何把這4檔案上傳 ?
現在只好把form_treeview.scx 的
Init 內容貼上供參考.
執行form_treeview.scx 時,指向Init 內下列這條出問題:
This.Nodes.Add( , , ALLTRIM(tbldepartment.部門編號), ALLTRIM(tbldepartment.部門名稱),1,2)
Program Error:
OLE IDispatch exception code 0 from Nodes:
Key is not unique in collection.
*!* 以下是form_treeview.scx 的 Init 內容:
This.LineStyle = 1 && tvwRootLines
This.Style = 7 && tvwTreelinesPlusMinusPictureText
This.ImageList = ThisForm.ImageList1 && 与 Imagelist 控件建立關聯
SELECT tbldepartment
SET DELETED on
GO top
DO WHILE !EOF()
*!* 添加部門節點,以惟一的部門編號字段作為控件的Key
This.Nodes.Add( , , ALLTRIM(tbldepartment.部門編號), ALLTRIM(tbldepartment.部門名稱),1,2)
SELECT tblperson
SET DELETED on
SET FILTER TO ALLTRIM(tblperson.部門編號) = ALLTRIM(tbldepartment.部門編號) && 控部門篩選人員
GO top
*!* 添加部門節點,以惟一的Key字段值作為控件的Key
DO WHILE !EOF() ;
This.Nodes.Add(ALLTRIM(tbldepartment.部門編號),4,ALLTRIM(tblperson.Key),ALLTRIM(tblperson.姓名),3,3)
This.Nodes(ALLTRIM(tbldepartment.部門編號)).Expanded = .T. && 展開節點
SKIP
ENDDO
SELECT tbldepartment
SKIP
ENDDO
SELECT tblperson
SET FILTER TO
GO top
SELECT tbldepartment
IF RECCOUNT() #0 &&當前表不為空
GO top
This.SelectedItem = This.Nodes(ALLTRIM(tbldepartment.部門編號)) && 選定節點
ENDIF
*!* |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|