主题：LIKE疑惑与timerclick带来的卡顿

请教老师，几个问题请教

问题1 ：下面标注颜色的代码，都能实现同样的功能，哪个执行效率高，并且统计负荷小，窗口TimerClick中使用LIKE是否会影响打开项目和窗口的速度？

谢谢老师的指导，异步编程，看了大概有个了解了，

有些不明白，是否是：上述在Timerclick中的代码在内部函数中建立一个函数把代码写过去要用到Sleep，每一个统计值的代码段都要写一次，类似的代码再在Timerclick中写一次，不知我的理解对吗？请老师就上面的实例，指导写个函数的代码，我参考参考学习学习，谢谢！

老师我这样写的，不知对吗？ 感觉没有明显改善，依然卡顿，卡顿时间约2秒

这样的代码段，我数了一下有27个，因为要统计显示多个表的数据，只能一个一个Label来呈现出来，这样的话控件比较多

函数Task：

Dim Count019 As Double
Count019 = DataTables("文件").SQLCompute("Count(登记编号)","发送_指定接收人 = '" & _UserName & "' and (接收确认 <> '" & _UserName & "' Or 接收确认 Is null) And 发送_完成 = 1 And 接收完成 = 0")
Sleep(50) '暂停线程50毫秒
Return  Count019

timerclick:

Dim pbx06 As WinForm.PictureBox = Forms("主页").Controls("PictureBox06")
Dim st019 As WinForm.Label = Forms("主页").Controls("Lab16")
Dim Count019 As Double
Count019 = DataTables("文件).SQLCompute("Count(登记编号)","发送_指定接收人 = '" & _UserName & "' and (接收确认 <> '" & _UserName & "' Or 接收确认 Is null) And 发送_完成 = 1 And 接收完成 = 0")
If Count019 = 0 Then
   pbx06.ImageFile = "OK.png" '显示符号
   st019.ForeColor = Color.DimGray 'Gainsboro '字体颜色  
ElseIf Count019 > 0 Then
   pbx06.ImageFile = "NO.png" '显示符号
   st019.ForeColor = Color.Red '字体颜色 
End If
st019.Text = "" & Count019 & ""

Functions.AsyncExecute("Task")

请教老师，我把TimerTick的全部代码都写到函数里面了，28个代码段，每个代码代码段都设了不同的

Sleep(20)

Return count1

TimerTick  里只写了这句代码

Functions.AsyncExecute("Task")

打开窗口正常，不同的统计值都正常，也不会出现时间间隔的断点影响，但是在本窗口Label点击打开另外窗口时（加载SQLTable）时报错，无效操作，连接被关闭........，无法加载表到窗口

这是什么问题，也不知道如何设置这样的同步函数，看了帮助也没弄懂，是否是异步函数执行时，其他主线程是被禁止使用的（如果不使用异步函数，加载表是正常的）

5楼的代码

Dim st019 As WinForm.Label = Forms("主页").Controls("Lab16")

Dim Count019 As Double
Count019 = DataTables("文件).SQLCompute("Count(登记编号)","发送_指定接收人 = '" & _UserName & "' and (接收确认 <> '" & _UserName & "' Or 接收确认 Is null) And 发送_完成 = 1 And 接收完成 = 0")
If Count019 = 0 Then
   pbx06.ImageFile = "OK.png" '显示符号
   st019.ForeColor = Color.DimGray 'Gainsboro '字体颜色  
ElseIf Count019 > 0 Then
   pbx06.ImageFile = "NO.png" '显示符号
   st019.ForeColor = Color.Red '字体颜色 
End If
st019.Text = "" & Count019 & ""

比如：当st019.Text  = 1  有文件提示时，点击此控件

此控件的Click：

Forms("窗口2").Open
DataTables("窗口2_Table1").LoadFilter = "未阅读 = 0"
DataTables("窗口2_Table1").Load()

请老师看看这个异步编程实例，连接ACCESS数据源，

测试窗口：窗口1

使用ACCESS数据源，直接就报错，  使用SQLSERVER云服务器的，是在TimerTick每次间隔的地方如果点击才报错，不在间隔点上不会报错

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:异步编程测试.rar

老师，我这边依然再报错，就是在时间间隔点上，如果时间间隔为6000，如果刚好这个点上点击打开另外窗口就报错，不在这个点上不报错，请老师再试试

我在TimerTick加入MessageBox.Show("到点")，每隔6秒跳出，点击确认后，在点击Lab1都不会报错，如果MessageBox显示窗口马上点击确认，立即点击Lab1就报错（因为刚好在间隔点上）

 修改后的连接

此主题相关图片如下：1.jpg

在间隔点上点击报错
 

此主题相关图片如下：2.jpg

点击确认报错

此主题相关图片如下：3.jpg

后续关闭所有窗口也报错，都是未引用实例等等

谢谢蓝老师指导，但是有几个问题还得请教，

1. 蓝老师指导的代码好像都是在主线程完成Functions.Execute，没有用到Functions.AsyncExecute，根据帮助说明，这样的实例是否就不能用异步函数？

2. 如果不用Functions.AsyncExecute，操作其他控件卡顿比较明显，蓝老师指导的代码应用时，通过实例中的多个按钮鼠标经过时变色来测试，就出现明显的卡顿；

    如果这个窗口中还有Panel或Table控件，使用滚动条的时候，移动滚动条时刚好在TimerTick的间隔点上，也同样出现卡顿

3.目前实例中就存在两个主要问题：

   3.1 异步函数：用Functions.AsyncExecute，鼠标经过按钮时变色不会卡顿，Panel或Table使用滚动条的时候不卡顿，但TimerTick时间间隔点上打开其他窗口加载表报错

   3.2 同步函数：用Functions.Execute，鼠标经过按钮时变色会卡顿，Panel或Table使用滚动条的时候会卡顿，但TimerTick时间间隔点上打开其他窗口加载表正常，不受影响

这样的情况怎样解决，麻烦老师们再指教指教，谢谢！！