主题：[讨论]单元格绘制图标

大师些，我有很多表采用单元格绘制图标时，在项目AfterOpenProject事件里面写代码，又没办法简化代码？如果不能简化代码，会不会影响打开项目时间呢？

我现在只做了一个表，单元格绘制按钮，就是怕多了影响打开项目的速度。比如：

If DataTables("表A").DataCols.Contains("删") = False Then
    DataTables("表A").DataCols.Add("删",Gettype(String),1)
    Tables("表A").Cols("删").Width = 24
    Tables("表A").Cols("删").Move(0)
End If

 

If DataTables("表B").DataCols.Contains("删") = False Then
    DataTables("表B").DataCols.Add("删",Gettype(String),1)
    Tables("表B").Cols("删").Width = 24
    Tables("表B").Cols("删").Move(0)
End If

 

 

If DataTables("表C").DataCols.Contains("删") = False Then
    DataTables("表C").DataCols.Add("删",Gettype(String),1)
    Tables("表C").Cols("删").Width = 24
    Tables("表C").Cols("删").Move(0)
End If

 

 

如果有几十个表，会影响打开项目速度不，还有就是这个代码怎么简化？