本页主题: ASP编程问题:怎么把数组作为子过程参数来传递? 打印 | 加为IE收藏 | 复制链接 | 收藏主题 | 上一主题 | 下一主题

bbsriver
杀人游戏MVP勋章I 杀人游戏MVP勋章II
级别: 管理员


精华: 52
发帖: 17392
威望: 8730 点
金钱: 7074 静电币
支持度: 19001 点
在线时间:13725(小时)
注册时间:2002-11-21
最后登录:2016-12-22

 ASP编程问题:怎么把数组作为子过程参数来传递?

前面定义了一个动态数组myArr()

set tempRs=Server.CreateObject("Adodb.Recordset")
tempRs.open "select * from sheet1 where id=123",conn,1,1  '读取Sql数据库
    dim myArr()  '定义数组
    Redim myArr(tempRs.recordcount-1)  '数组元素个数等于数据库中的记录条数
    i=0
        do while not tempRS.eof
            myArr(i)=tempRS("name")  '把数据库中的记录逐条赋值给数组的每个元素
            tempRS.movenext
            i=i+1
        loop
tempRS.close
set tempRS=nothing

后面有个子过程,假设名字就叫sub deal_myArr,需要调用这个数组当参数。语句应该怎么写呢?就像普通变量当参数一样写可以吗?
Posted: 2010-11-15 14:46 | [楼 主]
天堂有令
☆圣风
级别: 嘉宾


精华: 0
发帖: 4348
威望: 2770 点
金钱: 0 静电币
支持度: 42 点
在线时间:2889(小时)
注册时间:2006-03-31
最后登录:2019-04-04

 

似乎和ASP么啥关系,是不是VB函数参数传数组的问题?

网上抄了段代码,据说调试能过
Copy code
Private  Sub  Command1_Click()
Dim  x(9)  As  Integer
Dim  i  As  Integer

For  i  =  0  To  9
    x(i)  =  i
Next

    Call  iArr(x)

End  Sub


Private  Function  iArr(arr()  As  Integer)  As  Integer
   
  Dim  i  As  Integer

  For  i  =  0  To  UBound(arr)
        Debug.Print  arr(i)
  Next
   
End  Function
Posted: 2010-11-15 16:28 | 1 楼
帖子浏览记录 版块浏览记录
狗狗静电BBS - wwW.DoGGiEhoMe.CoM » 电脑全方位 Computer Guide

沪ICP备05008186号
Powered by PHPWind Styled by MagiColor