以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码新建外部表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192249)
--  作者：tsailong
--  发布时间：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),长度变量)
next
Builder.AddTable(tbl)
Builder.Close()
--  作者：有点蓝
--  发布时间：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 .......
……
next
--  作者：tsailong
--  发布时间：2024/6/6 13:08:00
--  
谢谢，这就完美了！