Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
'web.OfficeToolBar = True
web.Address = ProjectPath & "kindeditor\e.html"
If Tables("个案申请").current IsNot Nothing Then
If Tables("个案申请").current.IsNull("审核") = False Then
Do until e.form.controls("WebBrowser1").basecontrol.ReadyState = 4
Application.DoEvents
Loop
Dim editor As Object = e.form.controls("WebBrowser1").basecontrol.Document.GetElementsByTagName("div")(0)
editor.InnerHtml = "<div id='mymask' style='position:absolute;width:100%;height:100%;z-index:99999'></div>" & editor.InnerHtml
End If
Vars("编辑器校验")=0
e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")
e.Form.TimerEnabled = True
e.Form.TimerInterval = 500
End If
For Each s As String In "Button1|Button3|Button4|Button6|Button7|Button8|Button9|Button10|Button11|DateTimePicker1|DateTimePicker2|DateTimePicker3|TextBox2|TextBox4|TextBox5|TextBox6|GroupBox5|GroupBox6|GroupBox7|TextBox3|DateTimePicker4|Button01|Button02|GroupBox2".Split("|")
e.Form.Controls(s).Enabled = Tables("个案申请").current.IsNull("审核")
Next
For Each s As String In "Button1|Button3|Button4|TextBox4".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "区域主管")
Next
For Each s As String In "Button6|Button7|DateTimePicker2|GroupBox5|TextBox5".Split("|")
e.Form.Controls(s).Enabled = (User.roles = "个案拆分")
Next
For Each s As String In "Button8|Button9|DateTimePicker3|GroupBox6|TextBox6".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "行销部主管")
Next
For Each s As String In "Button10|Button11|DateTimePicker1|GroupBox7|TextBox2".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "行销部经理")
Next
For Each s As String In "DateTimePicker4|Button01|Button02|GroupBox2|TextBox3".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "Boss")
Next
加好友 
发短信
Post By：2014/5/1 18:50:00 [只看该作者]
此主题相关图片如下：qq截图20140501184505.png