老师，我想制作一个自定义函数动态增加列。我先将一个表的列全部删除，然后增加列，代码如下Dim tblname As String=args(0)
Dim colname As String=args(1)
Dim Col_Length As Integer=args(2)
DataTables.Unload(tblname ) '卸载表C
DataTables.load(tblname)
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables(tblname)
.AddColumn(colname ,ADOXType.String, Col_Length ) '增加字符型列,长度指定为250
End With
Builder.Close() '关闭ADOXBuilder
DataTables.Unload(tblname ) '卸载表C
DataTables.load(tblname)
代码运行后，没有增加列。错在哪里了呢？
烦请老师指点。
谢谢！
加好友 
发短信
Post By：2018/12/17 0:47:00 [只看该作者]
