请问各位老师，为什么我的目录树，被锁定了，用那个用户登录都无效
窗口的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
加好友 
发短信
Post By：2014/4/25 17:16:00 [只看该作者]
