- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助权限控制中的一个小问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81129)
-- 发布时间：2016/2/19 9:26:00
-- 求助权限控制中的一个小问题
Dim Filter As String = "1=1" \'设置筛选条件
With e.Form.Controls("DW")
If .Value IsNot Nothing Then
Filter &= " and {部门档案}.所属单位 = \'" & .Value & "\'"
End If
End With
此主题相关图片如下：123456.png
此主题相关图片如下：6543121.png
目前的情况是，如果窗口中的单位不选，点击下面的按钮，图或表将会出来所有单位的数据，即使DW控件中可选的单位只有一个
如果DW这个控件不进行选择的情况下，如何使得点击按钮时只出来控件中可选的单位呢
-- 发布时间：2016/2/19 9:42:00
--
Dim Filter As String = "1=1" \'设置筛选条件
With e.Form.Controls("DW")
If .Value IsNot Nothing Then
Filter &= " and {部门档案}.所属单位 = \'" & .Value & "\'"
Else
Filter &= " and {部门档案}.所属单位 in (\'" & .ComboList.Replace("|", "\',\'") & "\')"
End If
End With
-- 发布时间：2016/2/19 9:47:00
--
好的，谢谢
-- 发布时间：2016/4/15 10:16:00
--
关于禁止复制的一个控制问题
For Each dt As DataTable In DataTables
dt.AllowClipBoard = False
Next
End If
以上只能对数据表进行控制，想要实现对生成的临时表禁止复制，要如何才能实现
-- 发布时间：2016/4/15 10:17:00
--
生成临时表以后，执行代码
DataTables("表A").AllowClipBoard = False
-- 发布时间：2016/4/15 10:20:00
--
哦，不能统一设置的是吧
-- 发布时间：2016/4/15 10:20:00
--
必须生成以后设置。