主题：导入问题

老师，这段代码就是我从excel表导入库里时的验证后的代码： 

''将Excel表中的列赋值给person表中的一行
             For Each dc As Col In t.Cols   ''对于table1中的每一列
                  'dc.Name = dc.Name.Replace(" ","")  ''去掉列名里面的多余空格   
                  If dc.Name="标记" Then  ''标记列忽略不导入
                        Continue  For
                  End If
                  Dim Index As Integer=Array.Indexof(nums2,dc.name)
                  If dt.DataCols.Contains(nums1(Index)) Then ''如果person表中存在这一列,就将这一列的值赋给person
                        dr(nums1(Index)) = r(dc.name)
                  End If
             Next 

红色部分，我想去掉模板里面的列名中的空格？但是，提示错误：属性name为只读？  是不是定义临时变量，重新赋值下？