以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据会议时间 会议状态判断并打开或关闭对应的窗体 怎么进行逻辑判断呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176677)

--  作者:cnsjroom
--  发布时间:2022/4/22 14:10:00
--  根据会议时间 会议状态判断并打开或关闭对应的窗体 怎么进行逻辑判断呢?

会议状态表中有会议时间 会议状态  会议主题  开始会议字段

根据会议时间  会议状态判断并打开或关闭对应的窗体  怎么进行逻辑判断呢?

想实现:

1、根据会议时间是否等于当前系统时间  自动将开始会议选择为true 

2、接上判断开始会议是true还是false  如果是true  表示会议已经开始

3、接上判断开始会议是false  表示会议尚未开始  如果当前已经打开了其它窗体  就关闭所有窗体  除了会议系统窗体外

4、接上判断会议状态是false  就打开会议登录窗体  隐藏项目主窗体  

5、接上判断会议状态是true   就关闭所有窗体  除了会议系统窗体外  显示项目主窗体  

 

 

代码如下:实现了上述1、2、3  怎么实现4 5呢?

 

Dim Products As List(Of String())
Products = DataTables("会议状态").GetValues("会议时间|uuid|会议主题","会议状态=false and 会议时间 is not null ")
For Each Product As String() In Products
    Dim b As Date=Product(0)
    Dim b1 As Date= Format(Date.now, "yyyy-MM-dd HH:mm")
    If b=b1 Then
        Dim  bb As DataRow=DataTables("会议状态").Find("uuid=\'" & Product(1) & "\'")
        If bb IsNot Nothing Then  \'如果会议状态存在符合条件的uuid记录\'
            bb("开始会议")=True
            bb.Save
            If bb("会议状态")=False  Then
                If bb("开始会议")=True Then   \'且开始会议是选择状态  那么打开会议登录\'
                    If Forms("会议登录").opened Then  \'如果会议登录窗体打开了,更新会议主题内容\'
                        Dim lb As WinForm.Label = Forms("会议登录").Controls("Label1")
                        lb.Text=bb("会议主题")
                    Else  \'如果会议登录窗体没有打开,打开会议登录窗体\'
                        baseMainform.visible=False  \'隐藏主项目
                        Forms("会议登录").open
                    End If
                Else
                    For Each f As WinForm.Form In Forms
                        If Forms(f.Name).opened Then
                            If  f.name<>"会议系统" Then
                                Forms(f.Name).Close()
                            Else
                                baseMainform.visible=True  \'显示主项目\'
                            End If
                        End If
                    Next
                End If
            Else
                For Each f As WinForm.Form In Forms
                    If Forms(f.Name).opened Then
                        If  f.name<>"会议系统" Then
                            Forms(f.Name).Close()
                        Else
                            baseMainform.visible=True  \'显示主项目\'
                        End If
                    End If
                Next
            End If
        End If
    End If
Next


--  作者:有点蓝
--  发布时间:2022/4/22 15:08:00
--  
我看代码都有了呀。有什么问题
--  作者:cnsjroom
--  发布时间:2022/4/22 16:06:00
--  回复:(有点蓝)我看代码都有了呀。有什么问题
就是当会议状态为true的时候  不关闭登录窗体……
--  作者:有点蓝
--  发布时间:2022/4/22 16:29:00
--  
代码不是有判断吗?

If  f.name<>"会议系统" Then