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


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

   

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

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

主题：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里变量不需要申明吗？ 这是什么原因。谢谢.
 回到顶部
帅哥哟，离线，有人找我吗？
tiantian2888
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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.03125 秒, 6 次数据查询