Office中国论坛/Access中国论坛

标题: TreeSelect？？？？？？？？？ [打印本页]

作者: zyz218 时间: 2005-12-16 22:37
标题: TreeSelect？？？？？？？？？
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 时间: 2005-12-16 23:49
当部品是连接表的时候，以上代码就失效了？！！！！！！！！！！！！不知可否有什么方法解决这个问题？

作者: dasen 时间: 2005-12-17 17:44
object.Add(relative, relationship, key, text, image, selectedimage)

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

key

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

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

A,是Key参数的字头!

作者: zyz218 时间: 2005-12-18 00:06
"A" & WL("系统编码")

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

作者: zyz218 时间: 2005-12-18 00:41

以下是引用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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)