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

 你写了什么代码？动态增加列？如果是相同的代码，你可以写成循环。但，简化代码，效率还是一样的。

这样简化

 

Dim tnames() As String = {"表A", "表B", "表C"}
For Each tname As String In tnames
    If DataTables(tname).DataCols.Contains("删") = False Then
        DataTables(tname).DataCols.Add("删",Gettype(String),1)
        Tables(tname).Cols("删").Width = 24
        Tables(tname).Cols("删").Move(0)
    End If
Next

 

效率的话，其实和你手动添加固定的表达式列差不多的。