<<< 返回 access911.net 编程静态资料库索引页 如何动态定义数组大小？ 作者：cg1 摘自：access911.net 录入：cg1 时间：2003-11-10 浏览人次：1603
专题地址：http://www.access911.net/index.asp?u1=a&u2=79FAB21E1ADC 如果需要更详细的评论或说明，请点击该地址。 简述：如何动态定义数组大小？
问题：
| 如何动态定义数组大小？
如何在重定义该数组的大小时，不清除其中的数据？ |
回答：
| 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] .....................
........... |
| 
