详细错误内容：

有关调用实时(JIT)调试而不是此对话框的详细信息，
请参见此消息的结尾。

此主题相关图片如下：捕获.png

 
此主题相关图片如下：1.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档.txt

代码如下：运行提示如图错误！

Dim cmd As New SQ LCommand
cmd.Conn ectio nName = "无纸化会议"
Dim dt As DataTable
cmd.Comm andText = "SELE CT * Fr om 会议状态"
dt = cmd.Execut eReader()

Dim  bb As DataRow=dt.Find("uuid=\'" & vars("会议主题uuid") & "\'and 会议状态=true")
If bb IsNot Nothing Then  \'如果会议状态存在符合条件的uuid记录\'
    If bb("会议状态")=True Then
        For Each f As WinForm.Form In Forms
            If Forms(f.Name).opened Then
                If  f.name.Co ntains("会议系统") Or f.name.Contains("会议主题") Or f.name.Contains("会议议题") Or f.name.Contains("结束提醒") Then
                   
                    baseMainform.visible=True  \'显示主项目\'
                Else
                    Forms(f.Name).Close()
                    If Forms("结束提醒").opened = False Then
                        Forms("结束提醒").open
                    End If
                    baseMainform.visible=True  \'显示主项目\'
                End If
            End If
        Next
        If FileSys.DirectoryExists(ProjectPath & "下载文件") Then \'如果目录C:\\MyFolder存在
            FileSys.DeleteDirectory(ProjectPath & "下载文件",2,2) \'则删除之
        End If
        If FileSys.DirectoryExists(ProjectPath & "上传文件")  Then \'如果目录C:\\MyFolder存在
            FileSys.DeleteDirectory(ProjectPath & "上传文件",2,2) \'则删除之
        End If
        \'vars("会议主题uuid")=""
    Else
        If Forms("会议主体").opened = False Then
           
            cmd.Com ma ndText = "SELE CT Count(*)  Fro m 系统设置 where 设置名=\'登录开关\' and 设置内容=\'true\'"
            If cmd.ExecuteScalar > 0 Then
                If Forms("会议登录").opened = False Then
                    Forms("会议登录").open
                    baseMainform.visible=False  \'隐藏主项目
                End If
            Else
                Forms("会议主体").open
                baseMainform.visible=False  \'隐藏主项目
            End If
        End If
    End If
End If