主题：[求助]我有表A存放列名,类型,长度,标题,表达式,如何用代码产生 表B?

老师，如何从r("类型")的数值(举例是String) 再赋值给于Gettype（String）或 ADOXType.String

Dim dt As DataTable = DataTables("表C")
Dim tb As Table = Tables("表C")

For Each r As Row In Tables("表名").Rows

If r.IsNull("表达式") Then
    If s = "String" Then
        dt.DataCols.Add(r("列名"),Gettype(r("类型")),r("长度"))
    Else
        dt.DataCols.Add(r("列名"),Gettype(r("类型")))
    End If
Else
    If Gettype(s) = "String" Then
        dt.DataCols.Add(r("列名"),Gettype(r("类型")),r("长度"),r("表达式"))
    Else
        dt.DataCols.Add(r("列名"),Gettype(r("类型")),r("表达式"))
    End If
End If
Next

ADOXType.String