大家帮我看一下这段程序

Question

Dim dset As New DataSet("gsglxt")
Dim dtable As New DataTable("bookinfo")
dtable.Columns.Add("序号", System.Type.GetType("system.int16"))
dtable.Columns.Add("图书代码", System.Type.GetType("system.string"))
dtable.Columns.Add("图书名称", System.Type.GetType("system.string"))
dtable.Columns.Add("出版社", System.Type.GetType("system.string"))
dtable.Columns.Add("定价", System.Type.GetType("system.real"))
dtable.Columns.Add("作者", System.Type.GetType("system.string"))
dtable.Columns("序号").AutoIncrement = True
dset.Tables.Add(dtable)
编译可通过，可是一运行就说dtable.columns.add()的TYPE不能为空，我后面不是定义了它吧，怎么会为空呢

Answer 1

Dim dset As New DataSet("gsglxt")
Dim dtable As New DataTable("bookinfo")
dtable.Columns.Add("序号", System.Type.GetType("System.Int16"))
dtable.Columns.Add("图书代码", System.Type.GetType("System.String"))
dtable.Columns.Add("图书名称", System.Type.GetType("System.String"))
dtable.Columns.Add("出版社", System.Type.GetType("System.String"))
dtable.Columns.Add("定价", System.Type.GetType("System.Double"))   '--->已替换
dtable.Columns.Add("作者", System.Type.GetType("System.String"))
dtable.Columns("序号").AutoIncrement = True
dset.Tables.Add(dtable)
注意大小写
还有不存在system.real类型的，我已提换成System.Double

Answer 2

不对，dtable.Columns.Add("序号", System.Type.GetType("system.int16"))这一句请出问题了