VFP 愛用者社區

[nxyylzd]

在VFP的TreeView的init事件中加入如下代码：为了便于说明，所以加上了行号！
1、this.LineStyle=1
2、this.style=7
3、this.imagelist=thisform.imagelist1
4、select son
5、set deleted on
6、go top
7、do while !eof()
8、if len(alltrim(son.层次代码))=3
9、this.nodes.add(,,alltrim(son.层次代码),alltrim(son.部品名称),1,2)
10、else
11、nlen=len(alltrim(son.层次代码))-3
12、this.nodes.add(substr(alltrim(son.层次代码),1,nlen),4,alltrim(son.层次代码),alltrim(son.部品名称),3,4)
13、skip
14、endif
15、enddo

数据库结构及记录如下：
层次代码（C/30），编号（C/12），名称（C/20）
001 100-1 组件1
002 100-2 组件2
001001 101-1 部件1
002001 101-2 部件2
001001001 102-1 部件3
001001002 102-2 部件4
001002001 103-3 部件5


请高手指教，执行到第9行时出现“Invalid Key”，请问高手们，我哪里搞错了？应该怎么做？

[horace]

thisform.ImageList1有置入關聯圖像嗎?

[garfield]

請確定一下每次在 .add 時, 須要有一個唯一的 key值, 你的 alltrim(son.层次代码) 是唯一的嗎, 可以用 ltrim(str(recno())) 來代替.

[nxyylzd]

数据库结构及记录如下：
层次代码（C/30），编号（C/12），名称（C/20）
001 100-1 组件1
002 100-2 组件2
001001 101-1 部件1
002001 101-2 部件2
001001001 102-1 部件3
001001002 102-2 部件4
001002001 103-3 部件5
数据表结构与记录如上，怎么会不是唯一呢？？？

[garfield]

this.nodes.add(,1,alltrim(son.层次代码),alltrim(son.部品名称),1,2)

************
Add 方法 (Nodes 集合物件)


在 Treeview 控制項的 Nodes 集合物件中新增一個 Node 物件。

語法

object.Add(relative, relationship, key, text, image, selectedimage)

Add 方法的語法具有以下幾個儲存格：

儲存格 描述
object 必需的。物件運算式 ，其值為「適用於」清單中的一個物件
relative 選擇性的。已存在的 Node 物件的索引值或鍵值。新節點與已存在節點之間的關聯性，可在下一個引數，即 relationship 中找到。
relationship 選擇性的。指定 Node 物件的相對位置，如底下「設定值」中所描述。
key 選擇性的。單一特定的字串，用來以 Item 方法檢索 Node。
text 必需的。在 Node 中出現的字串。
image 選擇性的。表示在關聯的 ImageList 控制項中的影像索引。
selectedimage 選擇性的。當 Node 被選取時，此引數表示在關聯的 ImageList 控制項顯示時的影像索引。


設定值

relationship 的設定值是：

常數 數值 描述
tvwFirst 0 最先的節點。此 Node 和在relative 中所指名的節點位於同一層，並位於其它所有同層節點之前。
tvwLast 1 最後的節點。此 Node 和在relative 中所指名的節點位於同一層，並位於其它所有同層節點之後。任何新加入的節點都會加在最後加入的節點之後。
tvwNext 2 (預設)下一個節點。此 Node 位於在relative 中所指名的節點之後。
tvwPrevious 3 前一個節點。此 Node 位於在relative 中所指名的節點之前。
tvwChild 4 子節點。此 Node 成為在 relative 中所指名節點的子節點。


附註 如果在 relative 中沒有指名的 Node 物件，則新節點將被放在頂層節點的最後位置。

[bin1x]

add 方法是內建於tree 物件嗎

[garfield]

是內建於 treeview 中

[goto-dream]