------解决方案--------------------------------------------------------

这样呢:
ReDim Preserve m_tGroupedCollum( m_lGroupedHeaderCount-1) As tGroupCollum
从0开始,不用从1开始

------解决方案--------------------------------------------------------
情况一：
With m_tGroupedCollum(i) <-自动对数组进行的锁定
erase m_tGroupedCollum <-出错
redim redim m_tGroupedCollum <-出错
End With <-自动对数组解锁

情况二：
f m_tGroupedCollum(i) <-调用函数期间自动对数组进行锁定 f是下面的sub过程的名字

sub f(t as tgroupcollum)
erase m_tGroupedCollum <-出错
redim redim m_tGroupedCollum <-出错
end sub
------解决方案-------------------------------------------------------- Redim 不能改变下标的