TreeSelect？？？？？？？？？

zyz218

Private Sub 添加物料菜单()
    TreeSelect.Nodes.Clear
    Dim WL As DAO.Recordset
    Set WL = CurrentDb.OpenRecordset("部品")
    WL.MoveFirst
    For i = 1 To WL.RecordCount
        WL.edit
        Select Case Len(WL("系统编码"))
            Case 3
                TreeSelect.Nodes.Add , , "A" & WL("系统编码"), WL("系统编码") & " " & WL("名称")
               
            Case 6
                Father系统编码 = Left(WL("系统编码"), 3)
                TreeSelect.Nodes.Add "A" & Father系统编码, tvwChild, "A" & WL("系统编码"), WL("系统编码") & " " & WL("名称")
               
            Case 9
                Father系统编码 = Left(WL("系统编码"), 6)
                TreeSelect.Nodes.Add "A" & Father系统编码, tvwChild, "A" & WL("系统编码"), WL("系统编码") & " " & WL("名称")
               
            Case 12
                Father系统编码 = Left(WL("系统编码"), 9)
                TreeSelect.Nodes.Add "A" & Father系统编码, tvwChild, "A" & WL("系统编码"), WL("系统编码") & " " & WL("名称")
               
        End Select
        WL.Update
        WL.MoveNext
    Next i
End Sub

以上代码中的： "A" 是什么意思？起什么作用？有谁能指点一下吗？多谢！

zyz218

当部品是连接表的时候，以上代码就失效了？！！！！！！！！！！！！不知可否有什么方法解决这个问题？

dasen

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

--------------------------------------------------









key

可选的。唯一的字符串，不能与其它节点相同，也不能是纯数字，可用于用 Item 方法检索 Node（节点）。

---------------------------------------------------------------------

A,是Key参数的字头!

zyz218

"A" & WL("系统编码")

以上就是唯一的，用来检索对吧？！！多谢财神爷

zyz218

以下是引用zyz218在2005-12-16 15:49:00的发言：
当部品是连接表的时候，以上代码就失效了？！！！！！！！！！！！！不知可否有什么方法解决这个问题？

Private Sub 添加物料菜单()
    TreeSelect.Nodes.Clear
    Dim WL As DAO.Recordset
    Set WL = CurrentDb.OpenRecordset("部品")
    WL.MoveFirst
    Do Until WL.EOF
        WL.edit
        Select Case Len(WL("系统编码"))
            Case 3
                TreeSelect.Nodes.Add , , "A" & WL("系统编码"), WL("系统编码") & " " & WL("名称")
               
            Case 6
                Father系统编码 = Left(WL("系统编码"), 3)
                TreeSelect.Nodes.Add "A" & Father系统编码, tvwChild, "A" & WL("系统编码"), WL("系统编码") & " " & WL("名称")
               
            Case 9
                Father系统编码 = Left(WL("系统编码"), 6)
                TreeSelect.Nodes.Add "A" & Father系统编码, tvwChild, "A" & WL("系统编码"), WL("系统编码") & " " & WL("名称")
               
            Case 12
                Father系统编码 = Left(WL("系统编码"), 9)
                TreeSelect.Nodes.Add "A" & Father系统编码, tvwChild, "A" & WL("系统编码"), WL("系统编码") & " " & WL("名称")
               

        End Select
        WL.Update
        WL.MoveNext
    Loop
End Sub

这样问题解决，给遇到同样问题的朋友一个参考：）