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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 运行错误

共有4068人关注过本帖树形打印复制链接主题：运行错误

裴保民

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

加好友

发短信

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

Post By：2017/10/28 9:27:00 [只看该作者]

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

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

e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & Tables("注册用户信息表").Current("公司名称")

Else

e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & " 试用版"

End If

就是这句代码出的错。如果设置成独立窗体或模式窗体运行正常。是什么原因呢？

[此贴子已经被作者于2017/10/28 10:06:45编辑过]

有点蓝

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

加好友

发短信

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

Post By：2017/10/28 10:17:00 [只看该作者]

这里有4句代码，哪一句有问题？

裴保民

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

加好友

发短信

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

Post By：2017/10/28 16:19:00 [只看该作者]

Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then '如果注册码正确
e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & Tables("注册用户信息表").Current("公司名称") 是这句代码
Else
e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & " 试用版"
End If

已经解决是数据库表中无字段的原因你那软件是未注册过的软件不读取数据库表中的数据是直接赋值所以不会报错我在是注册过的软件要读取数据库信息的数据库无字段所以报错

[此贴子已经被作者于2017/10/28 16:49:46编辑过]

有点蓝

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

加好友

发短信

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

Post By：2017/10/28 17:10:00 [只看该作者]

Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & HardDiskID,"")
If Code > "" AndAlso DecryptText(Code,"acbd","bad") = HardDiskID Then '如果注册码正确

if Tables("注册用户信息表").Current isnot nothing
e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & Tables("注册用户信息表").Current("公司名称") 是这句代码

endif
Else
e.Form.Controls("banbenxinxi").text ="POS机进销存管理系统 2.0 " & " 试用版"
End If

裴保民

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

加好友

发短信

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

Post By：2017/10/28 20:22:00 [只看该作者]

（1）如果主窗体是主窗口，最小化怎么隐藏在托盘中呢？

（2）我在AfterOpenProject事件中写了如下代码：为什么当启动程序后如果"提醒窗体"打开状态,"主窗体"和"停靠窗体"不显示呢？必须关闭"提醒窗体"后"主窗体"和"停靠窗体"才是能显示出来呢，如何设置成当"提醒窗体"是打开的状态时(置顶状态)，同时"主窗体"和"停靠窗体"也是在“提醒窗体”下面显示呢？，如果启动程序后"提醒窗体"处于关闭状态的时，直接"主窗体"和"停靠窗体”。

Forms("主窗体").Open()

Forms("停靠窗体").Open()

DataTables("客户资料").datacols("身份证照片").DefaultFolder = ProjectPath & "客户图片/"

If Tables("系统设置").Current("是否提醒") = True Then

Forms("主窗体").Open()

Forms("停靠窗体").Open()

Forms("提醒窗体").Open()

Forms("提醒窗体").TopMost = True

Else

Forms("主窗体").Open()

Forms("停靠窗体").Open()

End If