- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]为什么新生成的节点点击会出错呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71539)
-- 发布时间：2015/7/13 16:44:00
-- [求助]为什么新生成的节点点击会出错呢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2_201507131636.zip |
此主题相关图片如下：3213213.bmp
改了半天还是会弹错误 请老师帮我看一下
-- 发布时间：2015/7/13 16:54:00
--
代码这样写
Dim Filter As String
If e.Node.Text <> "" Then
Select Case e.Node.Level
Case 0
Filter = "[目录] = \'" & e.Node.Text & "\'"
End Select
End If
Tables("文件管理").Filter = Filter
Forms("编辑资料").open()
-- 发布时间：2015/7/13 16:58:00
--
哦，明白了 谢谢老师
-- 发布时间：2015/7/13 17:32:00
--
额 老师 我还有一个问题 就是我是不是要分开做表才行 不能把所有都做在一个表里
我发现删除一个节点会删除一行，
能否实现删除节点的时候只删除“目录列”和“文件列”的内容呢？
我的按钮代码是这样的
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
Dim pth() As String = nd.FullPath.Split("\\")
Select Case nd.Level
Case 0
DataTables("文件管理").DeleteFor("目录 = \'" & pth(0) & "\'")
End Select
nd.Delete()
End If
tr.Select()
-- 发布时间：2015/7/13 17:41:00
--
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
Dim pth() As String = nd.FullPath.Split("\\")
Select Case nd.Level
Case 0
DataTables("文件管理").ReplaceFor("文件", Nothing, "目录 = \'" & pth(0) & "\'")
DataTables("文件管理").ReplaceFor("目录", Nothing, "目录 = \'" & pth(0) & "\'")
End Select
nd.Delete()
End If
tr.Select()