Question

VB 读取数据添加到treeview控件，然后在子节点添加“待添加”

例子代码如下。想在 “此处对treeview进行处理” 部分对已经添加数据的treeview控件再添加“待添加”项，具体的效果在图片中有。

疑问在这里：

如果是单纯在水果的子项的最后添加“待添加”。是这样：
Tvw_Food.Nodes.Add "苹果", tvwLast, "待添加1", "待添加"
但是'不知道“水果”和“蔬菜”下是否有子项（因为全是从123.txt添加的）。如果有子项，在其子项的最后加入“待添加”。如果没有子项，那么给他添加子项——“待添加”。

效果图在图片中。代码如下：

Type ShuiGuo
sBiaoZhi As String * 2
sMingCheng As String * 10
End Type

Sub sTest()

Dim i As Integer
Dim tShuiGuo As ShuiGuo
Dim iCount As Integer
Dim strRelative As String

Tvw_Food.Nodes.Clear
Tvw_Food.Nodes.Add , , "食物", "食物"
Tvw_Food.Nodes.Add "食物", tvwChild, "水果", "水果"
Tvw_Food.Nodes.Add "食物", tvwChild, "蔬菜", "蔬菜"

'---------------------------------------------------------
Open "D:\123.txt" For Random As #1 Len = Len(tShuiGuo)
iCount = LOF(1) / Len(tShuiGuo)
For i = 1 To iCount
Get #1, iCount, tShuiGuo
Select Case Left(tShuiGuo.sBiaoZhi, 1) '根据标识符，判断属于哪一类型
Case "G"
strRelative = "水果"
Case "C"
strRelative = "蔬菜"
End Select
'------将读取的数据添加到treeview------
Tvw_Food.Nodes.Add strRelative, tvwChild, tShuiGuo.sBiaoZhi, tShuiGuo.sMingCheng
Next i
Close #1

'----------------------此处对treeview进行处理--------------------
'
'此处给"水果""蔬菜"都加入"待添加"
'不知道“水果”和“蔬菜”下是否有子项（因为全是从123.txt添加的）。如果有子项，在其子项的最后加入待添加。
'如果没有子项，那么给他添加子项，待添加。
'
'----------------------------处理完毕---------------------------------
For i = 1 To Tvw_Food.Nodes.Count '展开树控件
Tvw_Food.Nodes.Item(i).Expanded = True
Next i
End Sub

谢谢大家！！！

Answer 1

这个你需要在读取的数据里，就设计好格式，数据里要有：
该节点的名称，该节点属于那个节点的子节点，等等信息。