VB：將二維數組傳遞給Sub

Question

我有一個二維數組，其大小在（）內不是靜態的。即代碼將在稍後分配大小。我想傳入我的函數這個數組，所以我可以使用它來執行很多代碼。

我的數組：

'generate Ingredient array 
Dim Ingredients(checkCount2 - 1, 3) As String 
Dim maxDim0 As Integer = UBound(Ingredients, 1) 
Dim maxDim1 As Integer = UBound(Ingredients, 2) 

我曾嘗試以下：

For i As Integer = 0 To maxDim0 
    For j As Integer = 0 To maxDim1 
     GenerateNewImport(Ingredients(i, j), F_IDCode, F_Description, F_VersionDate, F_VersionNumber) 
    Next j 
Next i 

OR

GenerateNewImport(Ingredients, F_IDCode, F_Description, F_VersionDate, F_VersionNumber) 

OR

GenerateNewImport(Ingredients(), F_IDCode, F_Description, F_VersionDate, F_VersionNumber) 

OR

GenerateNewImport(Ingredients(checkCount2-1, 3), F_IDCode, F_Description, F_VersionDate, F_VersionNumber) 

和等，但我不斷收到這樣的錯誤：

(Ingredients, ... : Value of type '2-dimensional array of String' cannot be converted to '1-dimension 

和等

我的功能是：

Sub GenerateNewImport(ByVal Ingredients(,) As String, ByVal F_IDCode As String, ByVal F_Description As String, ByVal F_VersionDate As String, ByVal F_VersionNumber As String) 

End Sub 

如何通過任何建議我數組放入函數調用？

下面引用和其他許多人：

https://msdn.microsoft.com/en-us/library/5dk93f6e(v=vs.90).aspx

Answer 1

ByVal Ingredients(,) As String 

必須換成

ByRef Ingredients As String(,) 

編輯：我替換的關鍵字BYVAL通過爲ByRef

Answer 2

你說你嘗試調用

Sub GenerateNewImport(ByVal Ingredients(,) As String, ByVal F_IDCode As String, ByVal F_Description As String, ByVal F_VersionDate As String, ByVal F_VersionNumber As String) 

End Sub 

與此代碼

GenerateNewImport(Ingredients, F_IDCode, F_Description, F_VersionDate, F_VersionNumber) 

，但該組合實際上是正確的。接受的答案必須處理將簽名從Ingredients(,) As String更改爲Ingredients As String(,)並使用ByRef，因爲它是一個數組。但是，無論如何，數組都是作爲引用類型傳遞的，所以這是無關緊要的。在任何一種情況下，(,)的位置都是相同的

下面是一個簡單示例，顯示如何將多維數組傳遞給方法，並且您首先沒有問題。

Option Explicit On 
Option Strict On 

Module Module1 

    Sub Main() 
     Dim ingredients(1, 1) As String 
     ingredients(0, 0) = "a" 
     ingredients(0, 1) = "b" 
     ingredients(1, 0) = "c" 
     ingredients(1, 1) = "d" 
     Signature1(ingredients) 
     Signature2(ingredients) 
     Signature3(ingredients) 
     Signature4(ingredients) 
     For i As Integer = ingredients.GetLowerBound(0) To ingredients.GetUpperBound(0) 
      For j As Integer = ingredients.GetLowerBound(1) To ingredients.GetUpperBound(1) 
       Console.WriteLine(ingredients(i, j)) 
      Next 
     Next 
     Console.ReadLine() 
    End Sub 

    Sub Signature1(ByVal ingredients As String(,)) 
     ingredients(0, 0) = UCase(ingredients(0, 0)) 
     Console.WriteLine("You called Signature1") 
    End Sub 

    Sub Signature2(ByVal ingredients(,) As String) 
     ingredients(0, 1) = UCase(ingredients(0, 1)) 
     Console.WriteLine("You called Signature2") 
    End Sub 

    Sub Signature3(ByRef ingredients As String(,)) 
     ingredients(1, 0) = UCase(ingredients(1, 0)) 
     Console.WriteLine("You called Signature3") 
    End Sub 

    Sub Signature4(ByRef ingredients(,) As String) 
     ingredients(1, 1) = UCase(ingredients(1, 1)) 
     Console.WriteLine("You called Signature4") 
    End Sub 

End Module 

與輸出顯示，所有的簽名都是等價的，並且都經過ByRef

你叫Signature1
你叫簽名2
你叫Signature3
你叫Signature4
一個
B
C
D