- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于目录树被锁定的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49909)
-- 发布时间：2014/4/25 17:16:00
-- 关于目录树被锁定的问题
请问各位老师，为什么我的目录树，被锁定了，用那个用户登录都无效
窗口的AFTER时间代码如下：
Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
\'web.OfficeToolBar = True
web.Address = ProjectPath & "kindeditor\\b.html"
If Tables("文件管理").current IsNot Nothing Then
e.Form.Controls("TextBox1").text = Tables("文件管理").current("内容")
e.Form.TimerEnabled = True
e.Form.TimerInterval = 500
End If
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("文件管理","文件类型|文件名称")
For Each s As String In "ComboBox1|TextBox4|Button3|Button1|Button4|TextBox5|DateTimePicker2|Button6|Button7|TextBox6|DateTimePicker3|Button8|Button9".Split("|")
e.Form.Controls(s).Enabled = False
Next
For Each s As String In "ComboBox1|TextBox4|Button3|Button1|Button4|".Split("|")
e.Form.Controls(s).Enabled = (User.group = "运营管理科文员")
Next
For Each s As String In "TextBox5|DateTimePicker2|Button6|Button7|".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "行销部主管")
Next
For Each s As String In "TextBox6|DateTimePicker3|Button8|Button9".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "行销部经理")
Next
目录树的NodeMouseClick，代码如下：
If e.Node.Level = 1 Then \'如果单击的是第二层节点
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow
Tables("文件管理").position = Tables("文件管理").FindRow(dr)
vars("编辑器校验") = 0
End If
此主题相关图片如下：360截图20140425171549205.jpg
此主题相关图片如下：360截图20140425171549205.jpg-- 发布时间：2014/4/25 17:17:00
--
如果需要激活，我该如何改代码》？？？
-- 发布时间：2014/4/25 17:17:00
--
e.Form.Controls("目录树").Enabled = True
-- 发布时间：2014/4/25 18:06:00
--
明白，已经解决了~谢谢老师