Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于工作计划


  共有2731人关注过本帖树形打印复制链接

主题：[求助]关于工作计划
帅哥哟，离线，有人找我吗？
fred
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：135 积分：1088 威望：0 精华：0 注册：2015/3/16 16:42:00 		[求助]关于工作计划  发帖心情 Post By：2015/9/18 15:56:00 [只看该作者]

如下截图：

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


目的：点上方的日期，计划对象日右边的框显示所点的日期。如果是过去的日期，则在下面文本框中显示那天作的工作计划，但不得修改内容（提示：过去的一去不复返。珍惜当下，把握未来。）。如果是今天的或者今后的日期，则显示今天的或今后的工作计划，可以修改内容。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：135 积分：1088 威望：0 精华：0 注册：2015/3/16 16:42:00 		  发帖心情 Post By：2015/9/19 14:00:00 [只看该作者]

麻烦老师在我上传的例子里做一下吧图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/19 14:50:00 [只看该作者]

呃...DateSelected 或者DateChanged事件，2楼代码

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询