Dim t As Row = Tables("表A").Current
Dim l As String = t("列名")
Dim k As String = t("数据类型")
Dim Builder As New ADOXBuilder("nwnd")
Builder.Open()
With Builder.Tables("表B")
Select Case k
Case "String"
.AddColumn(l,ADOXType.String, 64)
Case "Integer"
.AddColumn(l,ADOXType.Integer)
Case "Boolean"
.AddColumn(l,ADOXType.Boolean)
Case "Double"
.AddColumn(l,ADOXType.Double)
Case "DateTime"
.AddColumn(l,ADOXType.DateTime)
Case "Single"
.AddColumn(l,ADOXType.Single)
End Select
End With
Builder.Close() '关闭ADOXBuilder