- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何删除使用add方法增加的临时列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8649)
-- 发布时间：2010/11/21 17:15:00
-- 如何删除使用add方法增加的临时列
Dim StartDate As Date = #12/05/2010# \'起始日期
Dim EndDate As Date = #12/25/2010# \'截止日期
Dim Count As Integer = (EndDate - StartDate).TotalDays \'计算间隔天数
For i As Integer = 0 To Count \'增加日期列
DataTables("gridf").DataCols.Add("dc" & i, Gettype(Double), "", Format(StartDate.AddDays(i),"yyyy-MM-dd"))
Next
此主题相关图片如下：screenshot4.jpg
用上述方法增加的临时列，下一次操作如何一次性删除，每次的起始日期和截止日期都不一样的
-- 发布时间：2010/11/21 21:08:00
--
用代码增加的临时列又不能保存，下次打开自然就没有了。
或者增加全局变量，将上一次操作时的起日期和截止日期保存到对应的变量中，下次执行时先删除这些列。
-- 发布时间：2010/11/21 21:16:00
--
试试：
|
Dim StartDate As Date = #12/05/2010# \'起始日期 |
For i As Integer = Count To 0 Step-1
DataTables("gridf").DataCols.delete("dc" & i)
Next
-- 发布时间：2010/11/21 21:25:00
--
楼主是想模拟甘特图的列标题，他所说的应该不是下次启动时删除，应该是执行某一特定操作后更改所有列名称（刷新），不知道楼主可否考虑用固定的列名称，而通过动态修改列标题来实现。
-- 发布时间：2010/11/21 22:57:00
--
这样不知道有没有后遗症：
For i As Integer = DataTables("gridf").datacols.count -1 To 0 Step-1
DataTables("gridf").DataCols.Delete(Tables("gridf").Cols(i).DataCol.name)
Next
-- 发布时间：2010/11/22 16:05:00
--
这确实是个实体表，但dc开头的列属于add方法增加的临时列，后来赋予不同的值做标题而已.请教有无方法一次性删除这些dc开头的临时列?
-- 发布时间：2010/11/22 16:14:00
--
Dim lst As New List(of String)
For Each c As DataCol in DataTables("XXX").DataCols
if c.Name.StartsWith("dc") Then
lst.Add(c.name)
end if
Next
For Each nm As String in lst
DataTables("xxx").Datacols.Delete(nm)
next