好的明白
那afterload代码是这样吗??
Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
'web.OfficeToolBar = True
web.Address = ProjectPath & "kindeditor\e.html"
If Tables("个案申请").current IsNot Nothing Then
'e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")
e.Form.TimerEnabled = True
e.Form.TimerInterval = 500
End If