以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么移除列会清除的不彻底  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41390)

--  作者:longtechwj
--  发布时间:2013/10/18 11:54:00
--  为什么移除列会清除的不彻底

为什么移除列会清除的不彻底

For Each r As Col In Tables("排机计划_Table12").Cols
Tables("排机计划_Table12").Cols.Remove(r.Name)
Next

开始的时候Table是没有绑定数据的,我想要把这些什么第一列

第二列的移除掉

可是发现还是有几列没有移除掉,二四六八十这几列没有移除掉


--  作者:狐狸爸爸
--  发布时间:2013/10/18 11:55:00
--  

和删除行一样的道理:

http://www.foxtable.com/help/topics/0599.htm

 


--  作者:longtechwj
--  发布时间:2013/10/18 12:04:00
--  

Tables("排机计划_Table12").Cols.Remove("第一列")
Tables("排机计划_Table12").Cols.Remove("第二列")
Tables("排机计划_Table12").Cols.Remove("第三列")
Tables("排机计划_Table12").Cols.Remove("第四列")
Tables("排机计划_Table12").Cols.Remove("第五列")
Tables("排机计划_Table12").Cols.Remove("第六列")
Tables("排机计划_Table12").Cols.Remove("第七列")
Tables("排机计划_Table12").Cols.Remove("第八列")
Tables("排机计划_Table12").Cols.Remove("第九列")
Tables("排机计划_Table12").Cols.Remove("第十列")

没办法只有这样了

[此贴子已经被作者于2013-10-18 12:04:17编辑过]

--  作者:Bin
--  发布时间:2013/10/18 12:08:00
--  
With Tables("表A")
    For i As Integer = .Cols.count-1 To 0 Step -1
        .Cols.Remove(.Cols(i).name)
    Next
End With

--  作者:longtechwj
--  发布时间:2013/10/18 12:12:00
--  

我前面那个foreach也跟这个差不多,这个可以

我那个不可以


--  作者:jspta
--  发布时间:2013/10/18 13:23:00
--  
以下是引用longtechwj在2013-10-18 12:12:00的发言:

我前面那个foreach也跟这个差不多,这个可以

我那个不可以

有本质区别的

你发现为什么都是1,3,7被移除了,2,4,6保留?

 

你移除的时候,后面的行发生顺序变化,所以移除必须从最后一列开始