虫虫chonny个人资料:请教VB变量替换问题

来源:百度文库 编辑:高考问答 时间:2024/05/06 17:58:33
请教各位高手:我用
..............
For i=0 To 10
....
objTable.Columns.Append "" & Text2(i).Text & "", adVarChar, Val(" & Text3(i).Text & ")
Next
创建SQL Server数据表,一切正常;
当我把数据类型放入Combo1(i)中,把adVarChar 替换为Combo1(i).Text[或" & Combo1(i).Text & ",或CStr(" & Combo1(i).Text & ")],运行时总是出现“类型不匹配”的错误,调试了一宿都不行,请您帮帮忙吧,谢谢!!
我又定义了一个变量
Dim DataType As DataTypeEnum
If Combo1(i).Text="VarChar" Then DataType=adVarChar
If Combo1(i).Text="Char" Then DataType=adChar
If Combo1(i).Text="Boolean" Then DataType=adBoolean
........

用DataType替换原来的adVarChar,问题已经解决。

一个数字 一个是字符串
转换一下就可以了