以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  权限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169671)

--  作者:qazlinle6
--  发布时间:2021/6/25 13:51:00
--  权限
For Each dr  As DataRow In DataTables("窗口权限").sqlSelect(" \',\'+角色用户+\',\' like \'%," & _userGroup & ",%\'  And  窗口名 = \'" & e.Form.Name & "\' And 控件名=  \'开始日期\'  " )
        
    If e.Sender.Value < Date.Today.AddDays(dr("权限日期天数")) OrElse e.Sender.Value > Date.Today Then
        messagebox.show("不能选择大于今天和小于 dr("权限日期天数") 的日期")
        e.Cancel=True
    End If
       
Next


控件名可以用\'" & e.Form.Name & "\' 不

   dr("权限日期天数")什么插入   messagebox.show("不能选择大于今天和小于 dr("权限日期天数") 的日期") 


--  作者:有点蓝
--  发布时间:2021/6/25 14:27:00
--  
e.Form.Name是窗口名称

dr("权限日期天数")什么插入   messagebox.show("不能选择大于今天和小于 dr("权限日期天数") 的日期")   -- 没看懂,截图说明一下

--  作者:qazlinle6
--  发布时间:2021/6/25 16:15:00
--  
控件名称是哪个



messagebox.show("不能选择大于今天和小于天的日期")

dr("权限日期天数")=于30

提示     不能选择大于今天和小于30天的日期


--  作者:有点蓝
--  发布时间:2021/6/25 16:32:00
--  
窗口多个控件,要指定哪个控件?

messagebox.show("不能选择大于今天和小于" & dr("权限日期天数") & "天的日期")

--  作者:qazlinle6
--  发布时间:2021/6/25 17:10:00
--  
表里控件名
--  作者:qazlinle6
--  发布时间:2021/6/25 17:15:00
--  
像这个  窗口名 = \'" & e.Form.Name & "\'

控件名=???????

--  作者:有点蓝
--  发布时间:2021/6/25 17:32:00
--  
没看懂,截图说明,或者上传实例
--  作者:qazlinle6
--  发布时间:2021/6/25 18:01:00
--  





图片点击可在新窗口打开查看此主题相关图片如下:qq浏览器截图20210625180001.png
图片点击可在新窗口打开查看


For Each dr  As DataRow In DataTables("窗口权限").sqlSelect(" \',\'+角色用户+\',\' like \'%," & _userGroup & ",%\'  And  窗口名 = \'" & e.Form.Name & "\'  " )
加个控件名 





--  作者:有点蓝
--  发布时间:2021/6/26 8:54:00
--  
比如
For Each dr  As DataRow In DataTables("窗口权限").sqlSelect(" \',\'+角色用户+\',\' like \'%," & _userGroup & ",%\'  And  窗口名 = \'" & e.Form.Name & "\' and 控件名=\'开始日期\' " )
[此贴子已经被作者于2021/6/26 8:54:40编辑过]

--  作者:qazlinle6
--  发布时间:2021/6/26 10:24:00
--  
我不要指定条件,要自动的