如何用ｖｂｓｃｒｉｐｔ实现以下功能（急，急，急）！！！！！！！！！！！

[huangwy]

以下是数据库中的数据：
1 11
1 12
1 13
2 21
2 22
3 31
3 32
=>
要转换成以下格式的数组

a(0)= array("1","11","12",13")
a(1)= array("2","21","22")
a(2)= array("3","31","32")

[rengs]

这是数组中的数组
dim a(3) As Variant
dim b(4) as Integer
将数据库值写入数组b()中，b()=array("1","11","12",13")
a(0)=b()
然后redim b(4)
继续循环操作。。。
a(2)=b()

[shengjr]

redim 数组时好像不可以先将这个数组的大小确定！
在读的时候动态依据数据库中的数据分组数据大小来确定大小
redim a(ubound(a)+i)
这个不需要转到vbscript中asp有这个功能的！

[rengs]

保留动态数组的内容
每次执行 ReDim 语句时，当前存储在数组中的值都会全部丢失。Visual Basi 重新将数组元素的值置为 Empty（对 Variant 数组）、置为 0（对 Numeric 数组）、置为 零长度字符串（对 String 数组）或者置为 Nothing（对于对象的数组）。

在为新数据准备数组，或者要缩减数组大小以节省内存时，这样做是非常有用的。有时希望改变数组大小又不丢失数组中的数据。使用具有 Preserve 关键字的 ReDim 语句就可做到这点。例如，使用 UBound 函数引用上界，使数组扩大、增加一个元素，而现有元素的值并未丢失：

ReDim Preserve DynArray (UBound (DynArray) + 1)

[晨晨]

你的数据是从什么地方取得的？