以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码开发者有效，发布后无反应  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84903)
--  作者：weigqing9
--  发布时间：2016/5/12 18:48:00
--  [求助]代码开发者有效，发布后无反应

请问下列代码开发者登陆有效能弹窗，但其它用户登陆点击按钮无反应是什么原因？

If user.Group <> "经理" Then
    If Tables("费用报销").Current("报销") = True Then
        MessageBox.show("该报销单已打印,只有老板有重复打印权限","错误", MessageBoxButtons.ok, MessageBoxIcon.Error)
        e.Cancel = True  
    Else
        Dim Result As DialogResult
        Result = MessageBox.Show("确定打印该报销单,是否取消?" , "警告", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
        If result = DialogResult.ok Then
            Tables("费用报销").Current("报销") = True
      
        End If
    End If
End If
--  作者：大红袍
--  发布时间：2016/5/12 20:11:00
--  

加入msgbox，看每一步弹出什么？

 

msgbox(user.Group)

If user.Group <> "经理" Then

    msgbox(Tables("费用报销").Current("报销"))
    If Tables("费用报销").Current("报销") = True Then
        MessageBox.show("该报销单已打印,只有老板有重复打印权限","错误", MessageBoxButtons.ok, MessageBoxIcon.Error)
        e.Cancel = True  
    Else
        Dim Result As DialogResult
        Result = MessageBox.Show("确定打印该报销单,是否取消?" , "警告", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
        If result = DialogResult.ok Then
            Tables("费用报销").Current("报销") = True
      
        End If
    End If
End If