主题：[分享]利用窗口创建表

加上黑体的这行代码，你就知道原因了:

For Each dr As DataRow In DataTables("基础设置").DataRows
    messagebox.show(dr("列类型"))
    If dr("表名") = Name Then
        If dr("列类型") = 0 Then
            tbl.AddColumn(dr("列名"),dr("列类型"),dr("字符长度"))
        Else
            tbl.AddColumn(dr("列名"),dr("列类型"))
        End If
    End If
Next

 

列类型不是用“字符型”、“日期型”这种字符表示的，而是用ADOXType.String,ADOXType.DateTime这种形式表示的。

人家的列类型设置了数据字典，已经将字符型转换为每个列类型对应的整数。

你看看列属性就明白了的。

用Select Case，将字符转换为列类型：

 

Dim d As ADOXType
Dim c As string = "字符型"
Select Case c
     case “字符型”
         d = ADOXType.String
     case “双精度小数"
         d = ADOXType.Double

     ....

End Select

这个是因为c版设置了数据字典的，其实枚举就是一个整数，例如ADOXType.String的值等于0

Select Case dr("列名")   ？？？