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

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

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

想实现：

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