详细错误内容:
有关调用实时(JIT)调试而不是此对话框的详细信息,
请参见此消息的结尾。
此主题相关图片如下:捕获.png
此主题相关图片如下:1.png
代码如下:运行提示如图错误!
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编辑过]