<<< 返回 access911.net 编程静态资料库索引页

如何动态定义数组大小?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-11-10  浏览人次:4681


专题地址:http://access911.net/fixhtm/79FAB21E1ADC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何动态定义数组大小?

 


问题:

如何动态定义数组大小?
如何在重定义该数组的大小时,不清除其中的数据?

 

回答:

Access 中 (VBA中)更改数组时,只能在更改最末维大小时保持数组中的数据。
Redim 可以用来重定义数组大小,它有一个可选关键字 Preserve 
Preserve 可选关键字用来当改变原有数组最末维的大小时,使用此关键字可以保持数组中原来的数据。 
请看以下示例:

Function testRedim()
    Dim i As Integer
    Dim a() As String
    '赋值
    For i = 1 To 20
        ReDim Preserve a(i)
        a(i) = "test" & CStr(i)
    Next i
    
    '测试结果
    For i = 1 To 20
        Debug.Print a(i)
    Next i
End Function

以下源自帮助:

ReDim 语句
      

在过程级别中使用,用于为动态数组变量重新分配存储空间。

语法

ReDim [Preserve] .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/79FAB21E1ADC.htm

 


上一篇:VC6.0的DAO不认ACCESS2000的数据库 

下一篇:如何检测以及设置键盘状态

2017年2月22日生成静态资料