主题：登录窗口问题

打开登录窗口，点击【退出】按钮，出现如下错误，【退出】代码：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

dt.SysStyles("UnchangedRowHeader")

改了后

此主题相关图片如下：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("函数名称","表名")

取消后正常退出