主题：请教，动态建表遇到拦路虎

向老师高手请教：
下图界面中，让用户自建表及其字段和数据类型，

TextBox1 是自建表名
Table1 是自建表的字段
用户在 Table1 控件中逐行增加字段名和数据类型
点按钮提交后，程序遍历 Table1 控件，用以下代码建表，

    tbl = Builder.NewTable(Forms("自建表").Controls("TextBox1").value) '自建表名

    For Each r As Row In Tables("自建表字段").Rows
        tbl.AddColumn(r("字段" , r("数据类型"), r("长度"),)
    Next
    Builder.AddTable(tbl) '增加表

但是报如下错误：
编译错误:没有为“Public Sub AddColumn(Name As String, DataType As ADOXType, [Length As Integer = 16])”的参数“DataType”指定参数。
错误代码：tbl.AddColumn(r("著录项" , r("数据类型"), r("长度"),)

请教，这个需求该怎么做更好些呢？谢谢

必须一个一个判断，如

 

       Select Case dr1("列类型")
            Case "字符型"

            Case "日期型"
                
            Case "逻辑型"

        End Select

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=136565

 

 感谢感谢