以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一个增加列的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76160)
--  作者：goodnight
--  发布时间：2015/10/22 19:36:00
--  请教一个增加列的代码
.AddColumn(r("列名称"),ADOXType.Boolean)

这里最后的Boolean我要用变更 r("列类型") 来写如何 写
--  作者：大红袍
--  发布时间：2015/10/22 19:55:00
--  

这个不行，无法用字符。你这样写吧，比如

 

If r("列类型") = "Boolean" Then

    .AddColumn(r("列名称"),ADOXType.Boolean)

ElseIf If r("列类型") = "Double" Then

    .AddColumn(r("列名称"),ADOXType.Double)

End If