主题：关于批准，未通过审核项的问题

第一个问题：

我的OA系统，分三个权限；；；审核、批准、终审

批准是不允许批准未审核项目的，现在问题是，提示框提示是“不允许批准未审核项目”，但实际上，如果你填写了意见，意见还是会现在在表中；

 

第二个问题

查寻表窗口中，我点击我需要的个案，HTML并不显示我点击个案的内容，只是标题显示而已；

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


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


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

请老师帮忙看看例子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目105.rar

第一个问题，这样改。

 

Select Case e.DataCol.name
    Case "审核意见", "审核日期", "审核"
        If user.roles = "行销部主管" Then
            If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("审核") = False  Then
                msgbox("已审核")
                e.cancel = True
            Else If e.DataRow.IsNull("批准日期") = False OrElse e.DataRow.IsNull("终审意见") = False Then
                msgbox("已提交,不能再修改")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "批准意见" , "批准日期", "批准"
        If User.roles = "行销部经理" Then
            If e.DataRow.IsNull("审核") Then
                msgbox("没审核")
                e.Cancel = True
            Else If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("批准") = False  Then
                msgbox("已批准")
                e.Cancel = True
            Else If e.DataRow.IsNull("终审日期") = False Then
                msgbox("已提交")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "终审意见", "终审日期", "终审"
        If User.roles = "boss" Then
            If e.DataRow.IsNull("批准") Then
                msgbox("没批准")
                e.Cancel = True
            Else If e.NewValue <> Nothing AndAlso e.OldValue <> Nothing AndAlso e.DataRow.IsNull("终审") = False Then
                msgbox("已终审")
                e.cancel = True
            End If
        Else
            e.Cancel = True
        End If
    Case "个案申请","日期","编号","文件名称","分区","内容"
        Select Case User.Group
            Case "东北区", "西北区", "华北区", "华东区", "东南区", "华南区", "西南区"
                If e.DataRow.IsNull("审核日期") = False Then
                    e.Cancel = True
                End If
            Case Else
                e.Cancel = True
        End Select
End Select

第二个问题，在窗口afterload事件，改一下

 

If Tables("个案申请").current IsNot Nothing Then
    Vars("编辑器校验")=0
    e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")
    e.Form.TimerEnabled = True
    e.Form.TimerInterval = 500
End If

老师，针对第二个文件，查询窗口的问题

你是说在“工具栏”窗口的AFTERLOAD改呢？？还是在“查询窗口”的AFTERLOAD改呢？？

还是没有解决在查询窗口中，点击条目，在“功能栏”窗口显示对应内容的问题
此主题相关图片如下：360截图20140429095651875.jpg

上面的例子，具体点就是，我点西安被大明宫，在HTML中显示，应该是西安被大明宫的文件内容

 

呃...看了一下，你需要在表事件CurrentChanged里加入这句代码，任何时候，需要重新显示的时候，都要加入这段代码。

 

Vars("编辑器校验")=0

老师，还是不行额
此主题相关图片如下：360截图20140429100857281.jpg


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

可以了，老师，谢谢~~~