主题：求教:动态新增列如何做?

Select Case dr("类型")
   Case "String"
      DataTables("员工档案").DataCols.Add(dr("名称"), GetType(String))
   Case "Double"
      DataTables("员工档案").DataCols.Add(dr("名称"), GetType(Double))

....

End Select