欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → vbs里不需申明变量，为啥运行时提示编译器错误，类型不匹配

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有3599人关注过本帖树形打印复制链接

主题：vbs里不需申明变量，为啥运行时提示编译器错误，类型不匹配
帅哥哟，离线，有人找我吗？
tiantian2888
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：31 积分：0 威望：0 精华：0 注册：2015/2/24 1:10:54 		vbs里不需申明变量，为啥运行时提示编译器错误，类型不匹配  发帖心情 Post By：2015/2/27 16:24:20 [只看该作者]

  Set adoConn=CreateObject("Adodb.Connection") '连接数据库（数据指向是金字塔安装目录下的 test.mdb，也可以自己更改想要的路径）
  adoConn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\投资\gdhs.accdb"              
    trSqlread="select * from gdlb where stockcode='" & strcode &"'"  
  set rstTmp = adoConn.Execute(trSqlread)

arr = rstTmp.GetRows
    For i = 0 To UBound(arr)
    if  isnull(arr(i,0)) then
      arr1(i)="1"
      msgbox "1"
    else
      arr1(i)=arr(i,0)
          MsgBox arr(i,0)
    end if     
     Next

运行到arr1(i), 提示编译器错误 ‘13’ 类型不匹配，不是说在FUNCTION里变量不需要申明吗？ 这是什么原因。谢谢.
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2015/2/27 16:52:57 [只看该作者]

你用强制转换字符串函数强制转换一下类型试试


金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
pel46585
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：167 积分：661 威望：0 精华：1 注册：2009/12/25 23:43:24 		  发帖心情 Post By：2015/3/3 15:50:30 [只看该作者]

不需要申明变量<>不需要申明数组，你的arr1是数组，不申明怎么电脑怎么分配数组空间啊。 

[此贴子已经被作者于2015/3/3 15:50:54编辑过]
版主评定：好评，获得10个金币奖励好评，获得10个金币奖励
(理由：奖励)
 回到顶部
帅哥哟，离线，有人找我吗？
tiantian2888
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：31 积分：0 威望：0 精华：0 注册：2015/2/24 1:10:54 		  发帖心情 Post By：2015/3/3 22:21:44 [只看该作者]

高手！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 5 次数据查询