Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：求助 命令之间的连接
1楼
0lily 发表于：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楼
程兴刚 发表于：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编辑过]
共2 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.