如何为Access VBA模块中的多维数组赋值？

Question

以下告诉我有一个编译器错误 - 预期的语句结束（在等号上）。

Option Compare Database

Dim myArray(2, 2) As Integer = {{10, 10}, {10, 10}}

Answer 1

试试这个：

Dim myArray(2,2) as Integer
'Note that it is a 3x3 array
'If you need a 2x2 one then change appropriately :)

myArray(0,0) = 10
myArray(0,1) = 10
...

如果所有都是相同的“10”那么：

For i=0 To 2
    For j = 0 To 2
        myArray(i,j) = 10
    Next
Next

Answer 2

在你的情况下：

Dim myArray(2, 2) As Integer
myArray(0, 0) = 10
myArray(0, 1) = 10
myArray(1, 0) = 10
myArray(1, 1) = 10

见：MSDN

Answer 3

dim myArray as Variant

myArray = array(Array(1,2), array(3,4))

debug.print myArray(0)(0) '1
debug.print myArray(0)(1) '2
debug.print myArray(1)(0) '3
debug.print myArray(1)(1) '4