以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]外部数据源的表增加列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161098)

--  作者:2425004926
--  发布时间:2021/3/5 17:45:00
--  [求助]外部数据源的表增加列
我想让外部数据源 “统计” 里的 “预备表” 增加下面的列,如何实现

Dim Builder As New ADOXBuilder("统计") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("预备表") \'要增加列的表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
\'Builder.AddTable(tbl, True, True) \'增加表
Builder.Close()


--  作者:有点蓝
--  发布时间:2021/3/6 8:38:00
--  
Dim Builder As New ADOXBuilder("统计") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.Tables("预备表") \'要增加列的表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
Builder.Close()
--  作者:2425004926
--  发布时间:2021/3/8 11:09:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1615172870(1).png
图片点击可在新窗口打开查看
 
出错,不知问题在哪里

--  作者:有点蓝
--  发布时间:2021/3/8 11:35:00
--  
外部数据源没有这个指定名称的表
--  作者:2425004926
--  发布时间:2021/3/8 12:31:00
--  
 问题找到了,对于外部表,增加列是没有问题,但是如果这个外部表是改过名称的,就出错。谢谢!