我在项目属性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编辑过]