| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 日期对比公式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52905) |
| -- 作者：wumingrong1 -- 发布时间：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编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/6/25 14:01:00 -- beforeOpenProject的时候不能直接访问 DataTalbe 或者 Table |
| -- 作者：wumingrong1 -- 发布时间：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
|
| -- 作者：有点甜 -- 发布时间：2014/6/25 15:35:00 -- 如果要使用Table或Datatable的数据，就必须把代码放在AfterOpenProject事件。
如果要在beforeOpenProject事件处理的话，访问的信息，只能从外部获取。 |