主题：[求助]打开项目后自动刷新当前日期更高效的代码

表中有一列为“当前日期”，每次打开项目后自动刷新，由于行数较多，感觉速度较慢，目前代码如下：

Dim i As Integer = Tables("订单总表").count-1
Dim t As Integer = 0
Dim r As Row
For t = 0 To i
      r = Tables("订单总表").Rows(t)
      r("当前日期") = Date.Today
   Next

请教老师，有没有更高效的方法。谢谢！

用得着每一行来个当前日期吗？