以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于审核弹出窗口的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119651)

--  作者:lzw001
--  发布时间:2018/5/29 16:13:00
--  关于审核弹出窗口的问题
老师,这里我这样写之后,为什么偶尔会弹出“财务未审核”呢,是顺序问题还是哪里的问题呢
\'前面的未审核,则后面的禁止审核

If e.Col.Name="审核_财务审核" Then
    If e.Row("审核_总经理审核")=True Then
        MessageBox.Show("总经理已经审核通过,你不能取消审核!","提示",MessageBoxButtons.OK)
            e.Cancel=True
    End If
End If

If e.Col.Name="审核_总经理审核" Then
    If e.Row("审核_财务审核")=False Then
        MessageBox.Show("财务未审核!","提示",MessageBoxButtons.OK)
        e.Cancel=True
    End If
End If

If e.Col.Name="审核_集团审核" Then
    If e.Row("审核_总经理审核")=False Then
        MessageBox.Show("总经理未审核!","提示",MessageBoxButtons.OK)
        e.Cancel=True
    End If
End If


If e.Col.Name="审核_总经理审核" Then
    If e.Row("审核_集团审核")=True Then
        MessageBox.Show("集团总裁已经审核,你不能取消审核!","提示",MessageBoxButtons.OK)
        e.Cancel=True
    End If
End If


If e.Row("出纳支出_退回完结")=True Then
    If e.Col.Name<>"出纳支出_退回完结" Then
        e.Cancel=True
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180529161114.png
图片点击可在新窗口打开查看


--  作者:lzw001
--  发布时间:2018/5/29 16:14:00
--  
弹出之后等于是死循环了,要关了foxtable重开才行
--  作者:有点甜
--  发布时间:2018/5/29 16:23:00
--  
代码写到startEdit事件即可。
--  作者:lzw001
--  发布时间:2018/5/29 17:39:00
--  
好的