谢谢, 用了移除的方式,实现了。代码如下:
Dim tb As Table = CurrentTable
Dim ColsStr As String = ""
For Each c As Col In tb.Cols
If c.Visible = False Then
ColsStr = ColsStr & "'" & c.Name & "',"
End If
Next
ColsStr = ColsStr.Trim(",")
If ColsStr.Length > 0 Then
ColsStr = "Tables(""" & tb.Name & """" & ").Cols.Remove(" & ColsStr & ")"
End If
ColsStr = ColsStr.Replace("'", """")
Functions.Remove("RemoveInvisibleCols")
Functions.Add("RemoveInvisibleCols", ColsStr)
Functions.Complie()
Functions.Execute("RemoveInvisibleCols")
Syscmd.Edit.Find()