ms-access - 返回参数数量 - MS Access

Question

有没有办法在 Access 中返回 Sub 或 Function 中的参数数量？

    Public Sub mySub(arg1 As String, Optional arg2 As Variant, Optional arg3 As Variant)
        'Some code
    End Sub

我希望能够从这个 Sub 中返回数字 3。可能的？

Answer 1

在下面的网站上，他们建议使用 Parameter 数组作为参数，这不需要您知道有多少个参数。

调用您的函数： Function SomeProc(ParamArray avarItems() As Variant) 然后在函数或过程中，您可以像使用任何其他数组一样使用参数数组。我认为这将包括使用 Ubound(avarItems) + 1 的元素数量。唯一的一点是，参数数组必须是 Variant 类型，并且它必须是参数列表中的最后一个参数。

http://msdn.microsoft.com/en-us/library/office/aa164533(v=office.10).aspx

为了测试这一点，我创建了一个小样本：

选项显式

Private Sub Command0_Click() Dim nCount1 As Integer

nCount1 = GetArgCount("one", "two", "three", "four")

MsgBox ("Arguments = " & nCount1)

End Sub Function GetArgCount(ParamArray PassedArray() As Variant)

GetArgCount = UBound(PassedArray) + 1

结束功能

这将返回 msgbox() 中的数字 4