这个不行，无法用字符。你这样写吧，比如
If r("列类型") = "Boolean" Then
.AddColumn(r("列名称"),ADOXType.Boolean)
ElseIf If r("列类型") = "Double" Then
.AddColumn(r("列名称"),ADOXType.Double)
End If
加好友 
发短信
Post By：2015/10/22 19:55:00 [显示全部帖子]
