打开登录窗口，点击【退出】按钮，出现如下错误，【退出】代码：Syscmd.Project.Exit()

表样式内部函数如下：

此主题相关图片如下：snap1.jpg

Dim name As String =args(0)
Dim b As Table = Tables(name)
Dim dt As DataTable = b.DataTable
b.UseVisualStyle = False \'关闭系统界面风格,否则部分设置不起作用
b.ListMode = True   \'整行突出显示
b.Grid.Styles("UnchangedRowHeader").forecolor = Color.White \'行号字体颜色
b.Grid.Styles("UnchangedRowHeader").BackColor = Color.DarkBlue \'行号背景颜色
dt.SysStyles("EmptyArea").BackColor = Color.black \'空白区背景颜色
dt.SysStyles("Alternate").BackColor = Color.LightCyan \'交替行颜色(淡青色)
dt.SysStyles("CurrentRow").BackColor = Color.DarkOrange \'当前行颜色(深橙色)
dt.SysStyles("Fixed").BackColor = Color.DarkBlue \'标题行颜色(深蓝色)
dt.SysStyles("Fixed").ForeColor = Color.White \'标题行字颜色
dt.SysStyles("SelectedRowHeader").BackColor = Color.DarkBlue \'选定行的行标题颜色(深蓝色)
dt.SysStyles("SelectedRowHeader").ForeColor = Color.White \'选定行的行标题字颜色(?)
dt.SysStyles("SelectedRowHeader").FontBold = True \'选定行的行标题字加粗(?)
dt.SysStyles("SelectedColumnHeader").BackColor = Color.DarkCyan \'选定列的列标题颜色(深青色)
dt.SysStyles("SelectedColumnHeader").ForeColor = Color.White \'选定列的列标题字颜色
dt.SysStyles("Focus").BackColor = Color.DarkCyan \'焦点单元格颜色(深青色)(?)
dt.SysStyles("Focus").ForeColor = Color.White \'焦点单元格字颜色(?)

改了后

此主题相关图片如下：snap1.jpg

只有这几段代码也出错。登录都没问题，都是退出出现的错

Dim name As String =args(0)
Dim b As Table = Tables(name)
Dim dt As DataTable = b.DataTable
b.UseVisualStyle = False \'关闭系统界面风格,否则部分设置不起作用
b.ListMode = True   \'整行突出显示
dt.SysStyles("UnchangedRowHeader").forecolor = Color.White \'行号字体颜色

问题找到了：我在项目AfterOpenProject事件中设置了

Functions.Execute("函数名称","表名")

取消后正常退出