以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码如何修改请指教?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28500)
--  作者：wsxdwh
--  发布时间：2013/1/31 12:12:00
--  [求助]代码如何修改请指教?

以下代码执行时，秘书长可以进入，而中心委员会 不能进入，代码如何修改请指教！

 

If User.IsRole("秘书长") OrElse User.IsRole("中心委员会") Then
    MainTable = Tables("aaa")
    Tables("aaa").Filter=""
    DataTables("aaa").AllowEdit=True

If MessageBox.Show("是否删除之前的通知内容?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Dim dt As DataTable = DataTables("aaa")
dt.DataRows.Clear
End If

Else
    MessageBox.Show("你无权发布通知!")
End If
--  作者：abcd
--  发布时间：2013/1/31 13:06:00
--  

If User.IsRole("秘书长") \'OrElse User.IsRole("中心委员会") Then
MainTable = Tables("aaa")
Tables("aaa").Filter=""
DataTables("aaa").AllowEdit=True

If MessageBox.Show("是否删除之前的通知内容?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Dim dt As DataTable = DataTables("aaa")
dt.DataRows.Clear
End If

Else
MessageBox.Show("你无权发布通知!")
End If
--  作者：wsxdwh
--  发布时间：2013/1/31 13:24:00
--  

？！！！

 
--  作者：lin_hailun
--  发布时间：2013/1/31 14:59:00
--  
 代码没有问题。逻辑正常。

 你msgbox(user.roles)看看当前的角色是什么？
[此贴子已经被作者于2013-1-31 14:59:56编辑过]
--  作者：wsxdwh
--  发布时间：2013/1/31 15:55:00
--  
解决了  谢谢！！！