以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]删除列（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83711)

--  作者：yyzlxc --  发布时间：2016/4/15 9:42:00 --  [求助]删除列（已解决） 删除工效分析表除节拍序号列以外的所有列，删除代码如何写，请各位老师指教，谢谢！ Dim t As Table = Tables("工效分析") For Each cl As Col In t.Cols \'列循环     If cl.name <> "节拍序号" Then \'排除列         DataTables("工效分析").DataCols.Delete     End If Next [此贴子已经被作者于2016/4/15 10:02:01编辑过]

--  作者：大红袍 --  发布时间：2016/4/15 9:48:00 --   Dim t As Table = Tables("工效分析") For i As Integer = t.cols.count-1 To 0 Step -1     If t.cols(i).name <> "节拍序号" Then \'排除列         t.DataTable.DataCols.Delete(t.cols(i).name)     End If Next

--  作者：yyzlxc --  发布时间：2016/4/15 10:02:00 --   解决了，谢谢大红袍老师。