主题：[求助]代码开发者有效，发布后无反应

加入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