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