二维阵列辅助

Question

我对在Access中创建数组是不熟悉的，并且我在网上查找了大量提供帮助的文章。我创建了一个二维数组，并为数组中的每个位置分配了值。有趣的来了！！如何请求二维输入，存储信息，将用户输入与已经创建的数组进行比较，将数组的匹配值传递给计算，然后在Access中显示结果？任何帮助将不胜感激！非常感谢你！

Answer 1

从您的问题中我需要更多信息。您没有说明要比较的值的数据类型，但是由于它是“计算”，因此我假设涉及数字，并且在此示例中，我将使用整数而不是浮点数或双精度数表示2D数组。另外，我不知道如何计算结果，所以我只是组成了一个变量CalculatedResult。

Dim UserInput
UserInput = InputBox("Please enter a number", "Enter Number", Integer)
Dim CalculatedResult As Integer

For Each element In My2DArray
  If UserInput = element Then
    Area(element)
  End If
Next element

Function Area(number As Integer) As Void
    ' Code used for calculation
    Debug.Print CalculatedResult
End Function

您可能需要对打印语句执行DoCmd.PrintOut而不是Debug.Print才能显示Access的结果；我对VBA与Access的关系不熟悉。与嵌套的For循环相比，For Each循环节省了很多编程时间。