Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 日期对比公式


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

主题：[求助] 日期对比公式
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		[求助] 日期对比公式  发帖心情 Post By：2014/6/25 13:59:00 [显示全部帖子]

我在项目属性BeforeOpenProject中写入以下公式；想实现打开项目时先检测当前日期是否大于“系统使用权限日期表”第一行中‘系统权限日期’列的日期；如果大于该日期则禁止打开项目并弹出提示。可是好像错了，帮我看看哪里错了？

Dim r As Row = Tables("系统使用权限日期表").Rows(0) 'r代表"本机注册表"第一行
If r IsNot Nothing AndAlso r("系统权限日期") < Date.Today Then
    e.Cancel = True '拒绝打开项目
    e.HideSplashForm = True '关闭Foxtable的启动封面
   MessageBox.Show("该系统超过授权使用期限,请与开发者联系", "未授权提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification) '弹出提示窗口

End If
[此贴子已经被作者于2014-6-25 14:00:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/6/25 14:31:00 [显示全部帖子]

如果使用以下命令，那如果我想修改项目的使用期限；就必须打开项目属性进行修改。我只希望有一个窗口可以直接修改日期来改变这个项目的授权日期。
If Date.Today > new Date(2015, 06, 01) Then '如果电脑日期大于 ****日期
    e.Cancel = True '拒绝打开项目
    e.HideSplashForm = True '关闭Foxtable的启动封面
   MessageBox.Show("该系统超过授权使用期限,请与开发者联系", "未授权提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification) '弹出提示窗口

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