思路是这样的： 软件规定，如果销售单记录超过50笔，判断是否已经注册 ，如果已经注册 ，则继续进行下去，如果没有注册则提示注册，跳出注册窗口，考虑到DecryptText会出错，出现不友好界面

我在项目openproject 事件中 代码如下，麻烦狐狸指正

\'Tables("用户单位").visible=False
\' 取销售单销售记录数
Dim cmd1 As New SQLCommand
Dim xsjls As Integer
cmd1.C
cmd1.CommandText = "Select count(*) from {销售单}"
xsjls= cmd1.ExecuteScalar
\'取销售单销售记录数

\' 取得单位名称
Dim cmd2 As New SQLCommand
Dim dwmc As String
cmd2.C
cmd2.CommandText = "Select 单位名称 from {用户单位}"
dwmc= cmd2.ExecuteScalar
_dwmc= cmd2.ExecuteScalar
\'取单位名称
\'取注册码
Dim cmd3 As New SQLCommand
Dim zcm As String
cmd3.C
cmd3.CommandText = "Select 注册码 from {用户单位}"
zcm= cmd3.ExecuteScalar
\'取注册码
\'取注册期限
Dim cmd4 As New SQLCommand
Dim zcqx As String
cmd4.C
cmd4.CommandText = "Select 注册期限 from {用户单位}"
zcqx= cmd4.ExecuteScalar
\'取注册期限
\'进行判断
If xsjls>50
    Try
        If  DecryptText(zcm,"成功网络","www.chengon.com") = dwmc Then \'如果注册码正确
        Else
            Forms("注册提示窗口").show()
        End If
        catch ex As Exception
        Forms("软件注册错误格式提示").show()
       End try
      End If
\'检测

....

....

....

If xsjls>50
    Dim flag As Boolean
    Try
        If  DecryptText(zcm,"成功网络","www.chengon.com") = dwmc Then \'如果注册码正确
            flag = True
        Else
            flag = False
        End If
    catch ex As Exception
        Forms("软件注册错误格式提示").show()
    finally
        If flag = False Then Forms("注册提示窗口").show()     
    End try
End If

发现注册错误后，接下来进行注册

\'进行判断
If xsjls>50
    Dim flag As Boolean
    Try
        If  DecryptText(zcm,"成功网络","www.chengon.com") = dwmc Then \'如果注册码正确
            flag = True
        Else
            flag = False
        End If
    catch ex As Exception
        Forms("软件注册错误格式提示").show()
Forms("注册").show()
    finally
        If flag = False Then
 Forms("注册提示窗口").show()     
 Forms("注册").show()
End If     

    End try
End If
\'检测

在注册窗口中  点取消按钮 退出系统 不进行下一步了 代码如下

Syscmd.Project.Exit()
e.Form.Close()

可还是进行下午

 退出试试这样写

System.Diagnostics.Process.GetProcessesByName("Foxtable")(0).Kill