Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助 命令之间的连接


  共有10612人关注过本帖树形打印复制链接

主题：求助 命令之间的连接
美女呀，离线，留言给我吧！
0lily
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：5 积分：117 威望：0 精华：0 注册：2011/11/29 15:02:00 		求助 命令之间的连接  发帖心情 Post By：2011/12/2 21:04:00 [只看该作者]

If User.Group = "主管" Then DataTables("表A").AllowEdit = True Else DataTables("表A").AllowEdit = False End If If User.Group = "客户" Then For Each dt As DataTable In DataTables dt.AllowClipBoard = False Next End If 这两个命令同时实现的话要在中间加什么？

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2011/12/2 21:15:00 [只看该作者]

 
If User.Group = "客户" Then
     For Each dt As DataTable In DataTables
         dt.AllowClipBoard = False
     Next
End If
If User.Group = "主管" Then
    DataTables("表A").AllowEdit = True
Else
     DataTables("表A").AllowEdit = False
End If
 
或者
 
If User.Group = "客户" Then
    For Each dt As DataTable In DataTables
        dt.AllowClipBoard = False
    Next
End If
DataTables("表A").AllowEdit = (User.Group = "主管")
[此贴子已经被作者于2011-12-2 21:40:30编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询