以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  索引超出范围  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=173243)

--  作者：有点蓝 --  发布时间：2021/11/20 17:02:00 --   如果是这个代码错误。说明数组里的列，已经被移除了，或者列名不对。建议逐个判断处理 With CurrentTable     Dim v1() As String = {"sys_日期","sys_log","sys_姓名","sys_部门","权限组"}     For Each v As String In v1         If .Cols.Contains(v)             .Cols.Remove(v)         End If     Next End With