专家坐堂-关于个案申请模块的AFTERLOAD无数据加载时候的出现的错误~~Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

e.Form.Controls(s).Enabled = Tables("个案申请").current.IsNull("审核")

For Each s As String In "Button1|Button3|Button4|TextBox4".Split("|")

e.Form.Controls(s).Enabled = (User.Roles = "区域主管")

e.Form.Controls(s).Enabled = (User.roles = "个案拆分")

e.Form.Controls(s).Enabled = (User.Roles = "行销部主管")

e.Form.Controls(s).Enabled = (User.Roles = "行销部经理")

e.Form.Controls(s).Enabled = (User.Roles = "Boss")