主题：当前数据频繁刷新？怎么设定开关控制他只刷新一次,然后等待下次刷新启动再开始刷新……

当前数据频繁刷新？怎么设定开关控制他只刷新一次,然后等待下次刷新启动再开始刷新……

此主题相关图片如下：1212.gif

计划任务1代码  【默认为运行状态】
Dim i As Integer
Dim cmd As New SQ LCommand
cmd.Connect ionN ame = "无纸化会议"
cmd.Comma ndText = "SEL ECT Count(*) Fr om 系统设置 where 设置名='同步会议议题开关' and 设置内容='true'"  '判断多少符合行'
i =cmd.ExecuteScalar
Dim up11  As Boolean
If cmd.ExecuteScalar > 0 Then
    
    vars("up11")=True

MyTimers("同步会议议题").Enabled = True
Else
    
    vars("up11")=False

MyTimers("同步会议议题").Enabled = False

End If

同步会议议题任务代码  【默认为暂停状态】

If Forms("会议主体").opened Then
    If vars("up11")=True  Then
        If  vars("会议主题uuid") <>"" Then
            Dim cmd As New SQLCo mmand
            cmd.Con nectio nName = "无纸化会议"
            Dim dt,dt1 As DataTable
            cmd.Comm andText = "sel ect * Fro m 会议议题 where 主题uuid='" & vars("会议主题uuid") &"'"
            dt = cmd.Exe cuteReader()
            Tables("会议主体_table1").DataSource =dt
            Tables("会议主体_table1").SetColVisibleWidth("议题标题|500")
            With Tables("会议主体_table1")
                Dim r As Integer
                r = .FindRow("开始状态= true and 结束状态=false ") '从第一行开始查找
                If r >= 0 Then '如果找到的话
                    .Position = r '定位到找到的行.
                    'Tables("会议主体_table2").Filter="uuid='"& Tables("会议主体_table1").Current("uuid")  &"'"
                End If
            End With
        End If
    End If
    vars("up11")=False
End If