以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]目录树节点  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=87032)

--  作者：江南小城 --  发布时间：2016/7/1 10:21:00 --  [求助]目录树节点 If e.Node.Level = 4 Then \'如果单击的是第二层节点     Dim ps() As String = e.Node.FullPath.Split("\\")     Dim tr As Row = Tables("员工登记表").Current     Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = \'" & ps(0) & "\' And 地级市 = \'" & ps(1) & "\' And 区县市 = \'" & ps(2) & "\'And 街道 = \'" & ps(3) & "\'And 社区居委会 = \'" & ps(4) & "\'")          If dr IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入通讯录表的当前行.         tr("个人基本资料_省辖市") = dr("省辖市")         tr("个人基本资料_地级市") = dr("地级市")         tr("个人基本资料_区县市") = dr("区县市")         tr("个人基本资料_街道") = dr("街道")         tr("个人基本资料_家庭地址") = dr("社区居委会")         tr("个人基本资料_区号") = dr("区号")         tr("个人基本资料_邮编") = dr("邮编")                 e.Form.DropDownBox.Value = tr("个人基本资料_家庭地址")               End If     e.Form.DropDownBox.CloseDropdown() End If 老师，我用红色标出的最后一个节点在窗口中不显示 [此贴子已经被作者于2016/7/1 10:30:35编辑过]

--  作者：大红袍 --  发布时间：2016/7/1 10:33:00 --    不明白你表达什么，上传实例。

--  作者：江南小城 --  发布时间：2016/7/1 11:29:00 --   最后一个目录树节点在下拉链目录树窗口中不显示

--  作者：大红袍 --  发布时间：2016/7/1 11:30:00 --    那和你1楼代码一点关系都没有。是生成的时候有问题啊。上传实例。

--  作者：江南小城 --  发布时间：2016/7/1 11:51:00 --   好了，生成按钮没有设置好。