Dim Builder As New ADOXBuilder Builder.Open() '打开ADOXBuilder With Builder.Tables("生产单") .AddColumn("测试abc" ,ADOXType.DateTime) '增加日期型列 End With Builder.Close() '关闭ADOXBuilder
如果报错,你的是不是外部数据源?
Dim Builder As New ADOXBuilder("数据源名") Builder.Open() '打开ADOXBuilder With Builder.Tables("生产单") .AddColumn("测试abc" ,ADOXType.DateTime) '增加日期型列 End With Builder.Close() '关闭ADOXBuilder