e.form.clsoe

syscmd.project.exit

此主题相关图片如下：未命名.jpg

添加上syscmd.project.exit之后，提示上面的错误，请老大再看看

做简单例子上来

要不在AfterOpenproject中设置代码，如果用户单击的是取消按钮，就退出。

此主题相关图片如下：未命名.jpg

还有这样的提示：代码是

Forms("用户登录").Open()
\'动态加载数据表
For Each dr As DataRow In DataTables("数据加载").DataRows
    Dim s As String = dr("数据库名")
    Dim s1 As String =dr("表名")
    If dr.IsNull("数据库名")=False Then
        If Connections(s).GetTableNames.Contains(s1) Then
            If dr("是否加载")=True Then
                Dim q As new OuterTableBuilder
                q.TableName = s1
                q.ConnectionName = s
                q.SelectString = "Select * From [" & s1 & "] "
                q.Build
            End If
        Else
            MessageBox.Show(s1 & " 外部表不存在,不能加载!")
        End If
    End If
Next
\'动态创建关联表

For Each dr As DataRow In DataTables("关联管理").DataRows
    If dr.IsNull("关联名称")=False Andalso  dr.IsNull("父表_表名")=False Andalso dr.IsNull("子表_表名")=False Then
        If dr("是否关联")=True Then
            Dim i As Integer = dr("关联列数")
            Select Case i
                Case 0
                    Relations.Add(dr("关联名称"), DataTables(dr("父表_表名")).DataCols(dr("父表_关联列一")),DataTables(dr("子表_表名")).DataCols(dr("子表_关联列一")))
                Case 1
                    Dim DataCols1(i) As DataCol
                    Dim DataCols2(i) As DataCol
                    DataCols1(0) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列一"))
                    DataCols1(1) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列二"))
                    DataCols2(0) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列一"))
                    DataCols2(1) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列二"))
                    Relations.Add(dr("关联名称"), DataCols1, DataCols2)
                Case 3
                    Dim DataCols1(i) As DataCol
                    Dim DataCols2(i) As DataCol
                    DataCols1(0) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列一"))
                    DataCols1(1) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列二"))
                    DataCols1(2) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列三"))
                    DataCols2(0) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列一"))
                    DataCols2(1) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列二"))
                    DataCols2(2) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列三"))
                    Relations.Add(dr("关联名称"), DataCols1, DataCols2)
            End Select
        Else
            Relations.Delete(dr("关联名称"))
        End If
    End If
Next

\'打开默认视图
For Each tb As Table In Tables
    Tables(tb.Name).OpenView("默认视图")
Next

\'系统注册
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" Andalso DecryptText(Code,"2332163","2332163") = ComputerId Then \'如果注册码正确
    OK = True
Else
    If n > 10000 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" Andalso DecryptText(Code,"2332163","2332163") = ComputerId Then \'如果注册码正确
            OK = True
        End If
    End If
    If n > 12000 Andalso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

这种应该如何设置，请老大指点以下