无法保存代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 无法保存代码

共有2238人关注过本帖树形打印复制链接主题：无法保存代码

裴保民

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

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

无法保存代码 发帖心情

Post By：2019/3/11 22:20:00 [只看该作者]

此主题相关图片如下：微信截图_20190311221814.png

AfterOpenProject事件中写了如下代码

Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Count",0)

Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")

Dim Ok As Boolean

If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then '如果注册码正确

StatusBar.DefaultMessage ="程序 2.0 " & Tables("注册用户信息表").Current("公司名称")

OK = True

end if

这句语句哪有问题？无法保存，保存时报错

此主题相关图片如下：微信截图_20190311221741.png

有点蓝

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

等级：超级版主帖子：105959 积分：538870 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/11 22:30:00 [只看该作者]

If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID andalso Tables("注册用户信息表").Current isnot nothing Then

裴保民

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

等级：八尾狐帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00

Post By：2019/3/11 22:56:00 [只看该作者]

运行后发现本来已经注册了还是弹出未注册提示

此主题相关图片如下：微信截图_20190311225414.png

有点蓝

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

等级：超级版主帖子：105959 积分：538870 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/11 23:15:00 [只看该作者]

上传实例说明

主题：无法保存代码