主题：关于DataColChanging的设置

好的明白

 

那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

老师，我心里面十分感谢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

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

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

老师，最近辛苦，了，已经可以了谢谢~~~

下面还有一个问题，想问问，就是分区人员保存了文件，审核人登陆，是能删除它的文件的；；这样可能会造成误删的情况

 

现在我设置的代码是在DATEROWDETE

 

If e.DataRow.Isnull("审核") = False Then
    msgbox("工作流开始,不能删除")
    e.cancel = True
End If

 

如果我想设置成只要分区保存了，就不能删除；怎么样设置？？

我想设置的，除了分区人，能删除文件，其他不能删除

也就是，文件保存后，除了分区，其他能不能用删除功能