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

3、启动同步会议议题任务计划代码  （默认暂停）
开始判断up11=true时   （false时不做任何操作）

MyTimers("同步会议议题任务计划").Enabled = false
刷新数据   
然后更新变量up11=false

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

If Forms("会议主体").opened Then
    If vars("up11")=True  Then

MyTimers("同步会议议题").Enabled = False
        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