有点甜老师，看了你推荐的内容，可是我的设计目的不是那样的，我想通过窗口定义一个截止日期，下面是我写的代码，但不能用，再请你看看：
Dim usecount As Integer = GetConfigValue("试用次数",0) '定义一个整数变量,来记录系统打开次数
Dim RegOk As Boolean = GetConfigValue("注册状态" & ComputerId,False) '定义一个逻辑变量,来记录注册成功与否
Dim dr As DataRow = DataTables("系统设置表").DataRows(0)
Dim syrq As Date = dr("日期")
Dim endtoday As Date = GetConfigValue("syrq",#12/15/2019#) '--定义一个日期变量,确定截止日期
If regok = False Then '若是未注册状态
usecount = usecount +1 '则计数器+1
SaveConfigValue("试用次数",usecount)
If usecount <= 30 AndAlso Date.Today <= endtoday Then
Messagebox.Show("您可以在规定日期前试用30次, 现在剩余" & 30-usecount & "次")
Forms("注册").open
End If
If usecount > 30 Or Date.Today > endtoday Then
Messagebox.Show("您正在使用的软件已经超出试用限制!")
Forms("超限注册窗口").Open()
End If
End If
[此贴子已经被作者于2018/12/16 22:00:14编辑过]
加好友 
发短信
Post By：2018/12/16 12:12:00 [只看该作者]
