以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有关调用实时(JIT)调试而不是此对话框的详细信息 怎么处理呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177175)

--  作者:cnsjroom
--  发布时间:2022/5/11 18:59:00
--  有关调用实时(JIT)调试而不是此对话框的详细信息 怎么处理呢?

 

 详细错误内容:

有关调用实时(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

 



[此贴子已经被作者于2022/5/11 19:10:56编辑过]

--  作者:有点蓝
--  发布时间:2022/5/12 8:41:00
--  
调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错