主题：向DataTables删除临时列出错

请教 ： 我用 DataTables("日程表").DataCols.Add  增加临时列的方法  向表内加入临时列，

           列名 为 0：00  -24：00 

           我向在计划任务那里 添加 每30分钟 把列明更换一次，目的是把列名 按时间滚动！

           我做法是：  每30分钟  先把临时列的列 删除 ，然后再添加 新的 上去。

           但删除的代码 出错 ，提示 数组出现变化。。。。

           代码如下 请指点

删除代码

For Each dc As DataCol In DataTables("日程表").DataCols
    DataTables("日程表").DataCols.Delete(dc.Name)
Next

生成代码

Tables("日程表").StopRedraw()
Dim StartDate As Date = Date.today().AddDays(-1).AddDays(1)
Dim EndDate As Date = Date.Today.AddDays(1).AddHours(-1).AddMinutes(30)
Dim dt As Date = StartDate
Do
        Dim nm As String = Format(dt, "HH时_mm")
    DataTables("日程表").DataCols.Add(nm,Gettype(String),10)
    dt = dt.AddMinutes(30)
    If dt > Enddate Then
        Exit Do
    End If
Loop
For Each cl As Col In Tables("日程表").Cols
    cl.Width = 24
Next
Tables("日程表").ResumeRedraw()