以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于工作计划  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74776)
--  作者：fred
--  发布时间：2015/9/18 15:56:00
--  [求助]关于工作计划
如下截图：

图片点击可在新窗口打开查看此主题相关图片如下：workplan.jpg
图片点击可在新窗口打开查看
如下例子
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工作计划.rar


目的：点上方的日期，计划对象日右边的框显示所点的日期。如果是过去的日期，则在下面文本框中显示那天作的工作计划，但不得修改内容（提示：过去的一去不复返。珍惜当下，把握未来。）。如果是今天的或者今后的日期，则显示今天的或今后的工作计划，可以修改内容。
--  作者：大红袍
--  发布时间：2015/9/19 10:12:00
--  
Tables("工作计划").filter = "计划对象日期 = #" & e.Sender.Value & "#"
If e.Sender.Value < Date.Today Then
    Tables("工作计划").AllowEdit = False
Else
    Tables("工作计划").AllowEdit = True
End If
--  作者：fred
--  发布时间：2015/9/19 14:00:00
--  
麻烦老师在我上传的例子里做一下吧图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/9/19 14:50:00
--  
呃...DateSelected 或者DateChanged事件，2楼代码