7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
dvip 2003-03-05
- 打赏
- 举报
接分...........
Sean918 2003-03-05
- 打赏
- 举报
学习了
楼上的好！
楼上的好！
northwolves 2003-03-05
- 打赏
- 举报
用COLLECTION最简单：
Dim city As New Collection
Private Sub Command1_Click()
city.Add "bj"
city.Add "tj"
city.Add "sh"
city.Add "cq"
End Sub
Private Sub Command2_Click()
For i = 1 To 100
city.Add Chr(i Mod 26 + 65)
Next
End Sub
Private Sub Command3_Click()
msgbox "数组已存在 "& city.Count &" 个元素！"
Open "d:\temp.txt" For Output As #1
For i = 1 To city.Count
Print #1, , city(i)
Next
Close #1
End
End Sub
Dim city As New Collection
Private Sub Command1_Click()
city.Add "bj"
city.Add "tj"
city.Add "sh"
city.Add "cq"
End Sub
Private Sub Command2_Click()
For i = 1 To 100
city.Add Chr(i Mod 26 + 65)
Next
End Sub
Private Sub Command3_Click()
msgbox "数组已存在 "& city.Count &" 个元素！"
Open "d:\temp.txt" For Output As #1
For i = 1 To city.Count
Print #1, , city(i)
Next
Close #1
End
End Sub
rexyudl 2003-03-05
- 打赏
- 举报
放到数据库中只需要一个字段！然后每次把要存的数据添加到数据库中！
Sean918 2003-03-05
- 打赏
- 举报
盗用一下泰山的：
ReDim 语句示例
该示例使用 ReDim 语句为动态数组变量分配和重分配存储空间。假设 Option Base 是 1。
Dim MyArray() As Integer '声明动态数组。
Redim MyArray(5) '分配 5 个元素。
For I = 1 To 5 '循环 5 次。
MyArray(I) = I '初始化数组。
Next I
下一条语句重定义该数组的大小，并清除其中的元素。
Redim MyArray(10) '大小重定为 10 个元素。
For I = 1 To 10 '循环 10 次。
MyArray(I) = I '初始化数组。
Next I
================================================
''取出元素：
dim MyArray2(UBound(MyArray)) as Integer
for I =1 to UBound(MyArray)
MyArray2(I) = MyArray(I)
next
下面的语句重定义该数组的大小，但没有清除其中的元素。
Redim Preserve MyArray(15) '大小重定为 15 个元素。
''''说明： Preserve 关键字用以保存原数组中的数据不被丢失，但是只能改变数组最后一维的维数，就是上限值。
例如：
dim MyArray() as Long
Redim MyArray(0 to 5) as Long
Redim Preserve MyArray(0 to 6) as Long '''正确
Redim Preserve MyArray(1 to 6) as Long '''错误，因为改变的不是上限，是下限
对于多维数组同样适用
ReDim 语句示例
该示例使用 ReDim 语句为动态数组变量分配和重分配存储空间。假设 Option Base 是 1。
Dim MyArray() As Integer '声明动态数组。
Redim MyArray(5) '分配 5 个元素。
For I = 1 To 5 '循环 5 次。
MyArray(I) = I '初始化数组。
Next I
下一条语句重定义该数组的大小，并清除其中的元素。
Redim MyArray(10) '大小重定为 10 个元素。
For I = 1 To 10 '循环 10 次。
MyArray(I) = I '初始化数组。
Next I
================================================
''取出元素：
dim MyArray2(UBound(MyArray)) as Integer
for I =1 to UBound(MyArray)
MyArray2(I) = MyArray(I)
next
下面的语句重定义该数组的大小，但没有清除其中的元素。
Redim Preserve MyArray(15) '大小重定为 15 个元素。
''''说明： Preserve 关键字用以保存原数组中的数据不被丢失，但是只能改变数组最后一维的维数，就是上限值。
例如：
dim MyArray() as Long
Redim MyArray(0 to 5) as Long
Redim Preserve MyArray(0 to 6) as Long '''正确
Redim Preserve MyArray(1 to 6) as Long '''错误，因为改变的不是上限，是下限
对于多维数组同样适用
csh79 2003-03-05
- 打赏
- 举报
能给个实例吗？
sxs69 2003-03-05
- 打赏
- 举报
把表的字段类型定义成Ｂyte型
happybeyond 2003-03-05
- 打赏
- 举报
用redim即可解决问题啊！
csh79 2003-03-05
- 打赏
- 举报
请问如何放在数据库中？
liberte 2003-03-05
- 打赏
- 举报
装在数组里面，再用ubound(）
zw_yu 2003-03-05
- 打赏
- 举报
放在数据库或者文件里
dbcontrols 2003-03-05
- 打赏
- 举报
ReDim 语句示例
该示例使用 ReDim 语句为动态数组变量分配和重分配存储空间。假设 Option Base 是 1。
Dim MyArray() As Integer '声明动态数组。
Redim MyArray(5) '分配 5 个元素。
For I = 1 To 5 '循环 5 次。
MyArray(I) = I '初始化数组。
Next I
下一条语句重定义该数组的大小，并清除其中的元素。
Redim MyArray(10) '大小重定为 10 个元素。
For I = 1 To 10 '循环 10 次。
MyArray(I) = I '初始化数组。
Next I
下面的语句重定义该数组的大小，但没有清除其中的元素。
Redim Preserve MyArray(15) '大小重定为 15 个元素。
该示例使用 ReDim 语句为动态数组变量分配和重分配存储空间。假设 Option Base 是 1。
Dim MyArray() As Integer '声明动态数组。
Redim MyArray(5) '分配 5 个元素。
For I = 1 To 5 '循环 5 次。
MyArray(I) = I '初始化数组。
Next I
下一条语句重定义该数组的大小，并清除其中的元素。
Redim MyArray(10) '大小重定为 10 个元素。
For I = 1 To 10 '循环 10 次。
MyArray(I) = I '初始化数组。
Next I
下面的语句重定义该数组的大小，但没有清除其中的元素。
Redim Preserve MyArray(15) '大小重定为 15 个元素。
liuxueg 2003-03-05
- 打赏
- 举报
VB中不是有动态数组吗？声明一个动态数组存放，每放一个都先用redim加大存储空间即可。
