标题：如何删除使用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

用上述方法增加的临时列，下一次操作如何一次性删除，每次的起始日期和截止日期都不一样的

用代码增加的临时列又不能保存，下次打开自然就没有了。

 

或者增加全局变量，将上一次操作时的起日期和截止日期保存到对应的变量中，下次执行时先删除这些列。

试试：

 

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 = Count  To 0  Step-1   
      DataTables("gridf").DataCols.delete("dc" & i)
Next

楼主是想模拟甘特图的列标题，他所说的应该不是下次启动时删除，应该是执行某一特定操作后更改所有列名称（刷新），不知道楼主可否考虑用固定的列名称，而通过动态修改列标题来实现。

这样不知道有没有后遗症：

 

For i As Integer = DataTables("gridf").datacols.count -1 To 0 Step-1
       DataTables("gridf").DataCols.Delete(Tables("gridf").Cols(i).DataCol.name)
Next

 这确实是个实体表，但dc开头的列属于add方法增加的临时列，后来赋予不同的值做标题而已.请教有无方法一次性删除这些dc开头的临时列?

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