鼓起勇气问问题

Question

Option Explicit
    Dim fileName As String
    Dim nodX As Node
Private Sub Form_Load()
Dim i  As Integer
Dim thstr As String
fileName = App.Path & "\test.txt"
Set nodX = TreeView1.Nodes.Add(, , "Top", "总类")
Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node1", "商品名称")
Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node2", "商品产地")
Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node3", "商品单位")
Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node4", "商品代码")
Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node5", "商品数量")
If Dir(fileName) <> "" Then
      '加载数据
      Open fileName For Input As #1
        Do While Not EOF(1)
         With TreeView1.Nodes.Add("Node1", tvwChild, "Node" & TreeView1.Nodes.Count + 1, "Node" & TreeView1.Nodes.Count + 1)
           Line Input #1, thstr
            .Text = thstr
         End With
        Loop
      Close #1
    End If
End Sub
这代码可以使文本文件每行内容都作为商品名称的子节点顺序排列,我现在想把文本文件每行内容依次分配到原来的5个NODE下面，请各位帮忙。谢谢

Answer 1

Option Explicit
    Dim fileName As String
    Dim nodX As Node
    
Private Sub Form_Load()
    Dim i  As Integer
    Dim thstr As String
    fileName = "e:\test.txt"
    Set nodX = TreeView1.Nodes.Add(, , "Top", "×&Uuml;&Agrave;à")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node1", "&Eacute;&Igrave;&AElig;·&Atilde;&ucirc;&sup3;&AElig;")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node2", "&Eacute;&Igrave;&AElig;·&sup2;ú&micro;&Oslash;")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node3", "&Eacute;&Igrave;&AElig;·&micro;&yen;&Icirc;&raquo;")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node4", "&Eacute;&Igrave;&AElig;·&acute;ú&Acirc;&euml;")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node5", "&Eacute;&Igrave;&AElig;·&Ecirc;&yacute;&Aacute;&iquest;")
    If Dir(fileName) <> "" Then
      '&frac14;&Oacute;&Ocirc;&Oslash;&Ecirc;&yacute;&frac34;&Yacute;
        Open fileName For Input As #1
        i = 1
        Do While Not EOF(1)
            With TreeView1.Nodes.Add("Node" & i, tvwChild, "Node" & TreeView1.Nodes.Count + 1, "Node" & TreeView1.Nodes.Count + 1)
                Line Input #1, thstr
                .Text = thstr
            End With
            i = i + 1
        Loop
        Close #1
    End If
End Sub

Answer 2

呵，我把路径改了，你改回来：
fileName = "e:\test.txt"   --->   fileName = app.path & "\test.txt"

Answer 3

有乱码，晕，完整代码：Option Explicit
Dim fileName As String
Dim nodX As Node
    
Private Sub Form_Load()
    Dim i  As Integer
    Dim thstr As String
    fileName = App.Path & "\test.txt"
    Set nodX = TreeView1.Nodes.Add(, , "Top", "总类")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node1", "商品名称")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node2", "商品产地")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node3", "商品单位")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node4", "商品代码")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node5", "商品数量")
    If Dir(fileName) <> "" Then
      '加载数据
        Open fileName For Input As #1
        i = 1
        Do While Not EOF(1)
            With TreeView1.Nodes.Add("Node" & i, tvwChild, "Node" & TreeView1.Nodes.Count + 1, "Node" & TreeView1.Nodes.Count + 1)
                Line Input #1, thstr
                .Text = thstr
            End With
            i = i + 1
        Loop
        Close #1
    End If
End Sub

Answer 4

huangjianyou(小健) 
运行的时候RUN-TIME ERROR ‘35601’
ELEMENT NOT FOUND
With TreeView1.Nodes.Add("Node" & i, tvwChild, "Node" & TreeView1.Nodes.Count + 1, "Node" & TreeView1.Nodes.Count + 1)这里有问题，好象"Node" & i有问题

Answer 5

不行，可能是什么原因？帮我啊，我自己写的时候一用"Node" & i就出问题，不知道什么原因

Answer 6

Option Explicit
Dim fileName As String
Dim nodX As Node
    
Private Sub Form_Load()
    Dim i  As Integer
    Dim thstr As String
    fileName = App.Path & "\test.txt"
    Set nodX = TreeView1.Nodes.Add(, , "Top", "总类")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node1", "商品名称")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node2", "商品产地")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node3", "商品单位")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node4", "商品代码")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node5", "商品数量")
    If Dir(fileName) <> "" Then
      '加载数据
        Open fileName For Input As #1
        Do While Not EOF(1)
            With TreeView1.Nodes.Add("Node" & i, tvwChild, "Node" & TreeView1.Nodes.Count + 1, "Node" & TreeView1.Nodes.Count + 1)
                For i=1 to 5
                Line Input #1, thstr
                .Text = thstr
               Next i
            End With
            Loop
        Close #1
    End If
End Sub

Answer 7

"Node" & i   '这里的i是0，所以报元素未发现

Answer 8

For i=1 to 5
  Line Input #1, thstr
  .Text = thstr
Next i你想怎么写？最好画图列出你的结构

Answer 9

商品名称---都是名称
商品产地---都是产地
商品单位---都是单位
商品代码---都是代码
商品数量---都是数量
文本文件内容大致如下
可乐
上海
上海食品厂
0001
10000
雪碧
苏州
苏州食品厂
0002
20000
就这样的形式，把文本文件内容按类写入TREEVIEW控件

Answer 10

最后treeview要这样显示吗？？可乐
     --上海
             --上海食品厂
                      --0001
                            --10000
雪碧
     --苏州
             --苏州食品厂
                       --0002
                             --20000

Answer 11

Option Explicit
Dim fileName As String
Dim nodX As Node
    
Private Sub Form_Load()
    Dim i  As Integer
    Dim thstr As String
    fileName = App.Path & "\test.txt"
    Set nodX = TreeView1.Nodes.Add(, , "Top", "总类")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node1", "商品名称")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node2", "商品产地")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node3", "商品单位")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node4", "商品代码")
    Set nodX = TreeView1.Nodes.Add("Top", tvwChild, "Node5", "商品数量")
    If Dir(fileName) <> "" Then
      '加载数据
        Open fileName For Input As #1
        i = 1
        Do While Not EOF(1)
            With TreeView1.Nodes.Add("Node" & i, tvwChild, "Node" & TreeView1.Nodes.Count + 1, "Node" & TreeView1.Nodes.Count + 1)
                Line Input #1, thstr
                .Text = thstr
            End With
            if i=5 then
                i=1
            else
                i = i + 1
            end if
        Loop
        Close #1
    End If
End Sub
'原封不动放上你的代码，肯定行。你自己的代码没初始化I