[求助] 日期对比公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3053人关注过本帖树形打印复制链接主题：[求助] 日期对比公式

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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/25 14:01:00 [只看该作者]

beforeOpenProject的时候不能直接访问 DataTalbe 或者 Table

wumingrong1

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的启动封面

End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/25 15:35:00 [只看该作者]

如果要使用Table或Datatable的数据，就必须把代码放在AfterOpenProject事件。

如果要在beforeOpenProject事件处理的话，访问的信息，只能从外部获取。

下一主题 >> << 上一主题

主题：[求助] 日期对比公式