主题：关于DataColChanging的设置

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

 

afterload代码是这样吗？？

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then
            e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")        
            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If

 

真还不知道改哪里呢？？老师请指导一下

 呃，好吧，红色的地方，加一个判断。

 

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then
            e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")        
            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If

 

好的明白

 

那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

 

如果，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

 

timeclick代码是

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then
            e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")        
            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If

 

 

就会出现新的问题，新建文件，不会自动带出日期、文件编号、分区

 

 

此主题相关图片如下：360截图20140423160005640.jpg

 我输了...拷贝代码进去。

 

 

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("内容")

End If
e.Form.TimerEnabled = True
e.Form.TimerInterval = 500

 

timeclick代码是

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then

            If Tables("个案申请").current IsNot Nothing Then
                e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
                e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")         

            End If
            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If

老师，我心里面十分感谢FOXTABLE，这个平台，让我学到太多东西了，我承认我有点烦，但我绝对是学的，相信我。。。

上面的代码还是不能实现新建文件，带出空的WEBBROWER，带出分区、日期、个案编号

我在表的DataRowAdding，已经设置

e.DataRow("分区") = user.group
e.DataRow("日期") = Date.Today()

 

在表的DataColChanged，已经设置

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        Dim d As Date = e.DataRow("日期")
        Dim y As Integer = d.Year
        Dim m As Integer = d.Month
        Dim Days As Integer = Date.DaysInMonth(y,m)
        Dim fd As Date = New Date(y,m,1) '获得该月的第一天
        Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
        Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
        If e.DataRow("编号").StartsWith(bh) = False '如果编号的前6位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(编号)","日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(7,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("编号") = bh & "-" & Format(idx,"000")
        End If
    End If
End If

 

究竟是哪里有问题？？

 

此主题相关图片如下：360截图20140423161232265.jpg

 回复48楼，代码是没有错的。

 

 新建，应该是填报人才能新建的，你切换到填报人再新增。

其他解决了，但为什么新建文件，WEBBROWER是空。。。。。。。。