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("权限日期天数") 的日期")