Sub createcolumn(ByVal DataType As String, ByVal ColumnName As String)
Dim dc As DataColumn
dc = New DataColumn()
With dc
.DataType = System.Type.GetType(DataType)

.ColumnName = ColumnName
End With
dt.Columns.Add(dc)
End Sub
画红线的出错呀，
请各位大哥帮帮，