主题：[求助]计算代码执行的时间（datacolchanged事件）

Case "列一"

代码

End Select

假如我现在手工重置这一列，但是这个表里面有很多行，我想计算出所有行一共执行了多长时间，这个怎么操作？

如果我用：

Dim st As Date = Date.Now
Select Case e.DataCol.Name    

Case "列一"

代码

End Select

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")


显然是不可以的，这样只能计算出每一行执行的时间。

还有，在执行这个事件的代码的时候，如果数据比较多，会出现滚动条动来动去，

能不能在填充数据的时候禁止闪烁，等数据填充完毕后再全部显示出来？

请老师指点下。

我要统计三个表的数据，如下图：

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

我想做一个汇总表，分别提取B表和C表 对应着A表的值的记录并写入汇总表中。

目前我的做法是：

先使用手工编码填充数据提取A表所有数据到汇总表的“列一”，

然后在“列一”的datacolchanged事件中用SQLGetValues方法提取B表数据，

如果提取到的值 = “列一”的值，就填入“列二”这个单元格中，

用同样的方法也提取表C的数据并写入相应的单元格中。

这个笨方法测试没问题，但是耗时有点长，600多行的数据，差不多要20秒。

2、用一个按钮直接生成一个查询表，搞不太明白，搞一个晚上都没实现。

3、使用了这个建议，速度由原来的20秒提高到5、6秒左右。