代码新建外部表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码新建外部表问题

共有184人关注过本帖树形打印复制链接主题：代码新建外部表问题

tsailong

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：62 积分：573 威望：0 精华：0 注册：2022/6/6 14:35:00

代码新建外部表问题 发帖心情

Post By：2024/6/5 19:18:00 [只看该作者]

用代码在外部数据库中创建一个表，想引用变量值自动增加列，但字段类型这个变量s(i)该怎么处理才能正确执行呢？？赋值时前面加上字符串“ADOXType.”也不行：

Dim Builder As New ADOXBuilder("xbdb")

Dim tbl As ADOXTable

Builder.Open()

tbl = Builder.NewTable("表名")

Dim s as new list(of string)

S= （略过）集合赋值

for i as integer =0 to s.count-1

Tbl.AddColumn(字段名变量 ,s(i),长度变量)

Builder.AddTable(tbl)

Builder.Close()

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107604 积分：547323 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/6 8:36:00 [只看该作者]

类型是无法使用变量的，只能这样

for i as integer =0 to s.count-1

select case s(i)

case "String"

Tbl.AddColumn(字段名变量 ,ADOXType.String,长度变量)

case "DateTime"

Tbl.AddColumn(字段名变量 ,ADOXType.DateTime)

case .......

……

tsailong

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：62 积分：573 威望：0 精华：0 注册：2022/6/6 14:35:00

Post By：2024/6/6 13:08:00 [只看该作者]

谢谢，这就完美了！

主题：代码新建外部表问题