2

我正在尝试将数组传递给 Sub，以便 Sub 可以修改数组的值之一。

像这样的东西

Dim a As String = "STARTVALUE"

PopulateDataSet("Management", {a})

Public Sub PopulateDataSet(ByRef SomeRandomOtherVariable As String, ByRef ToBePopulatedVariables() As String)

    ToBePopulatedVariables(0) = "TheNewValue"

End Sub

当我运行代码时，我可以单步执行 Sub 并查看 ToBePopulatedVariables(0)（即变量 A）的值“STARTVALUE”，然后该值更改为“TheNewValue”。

但是，当控制权被传递回调用代码时，a 的值将恢复为“STARTVALUE”。

我已经尝试了我能想到的一切。有任何想法吗？

@karl-anderson 和 Nadeem_MK 都提出了同样的建议。

但

Dim a As String()
a(0) = "FirstVariable"
PopulateDataSet("Management", {a})

返回“对象引用未设置为对象的实例。”

将值分配给 a(0) 时

然而

Dim a As String() = {"FirstVariable"}

运行。

但是我仍然坚持没有将新值返回给调用代码。我试过这样做 ByVal 和 ByRef 但对于数组我认为这并不重要。——</p>

4

3 回答 3

1

这是 vb.Net 吗？如果是这样，我认为您的数组声明是错误的。
尝试这个;

Dim a(0) As String
a(0) = "STARTVALUE"

PopulateDataSet("Management", a)

Public Sub PopulateDataSet(ByRef SomeRandomOtherVariable As String, ByRef ToBePopulatedVariables() As String)

    ToBePopulatedVariables(0) = "TheNewValue"

End Sub
于 2013-11-25T04:46:55.680 回答
1

想一想你在这里实际在做什么：

Dim a As String = "STARTVALUE"

PopulateDataSet("Management", {a})

您创建一个名为avalue的字符串STARTVALUE。然后创建一个新数组 ( {a})，其中包含a. 您调用PopulateDataSet，它将替换数组的第一个元素。

为什么你看不到变化？

变量a根本没有改变，它仍然是STARTVALUE. 您没有对您创建的数组的引用，因此您将无法观察到该数组的更改（它甚至可能已经被垃圾收集了）。

此外，PopulateDataSet不返回任何内容，它只是更改ToBePopulatedVariables。也没有必要ByRef。

您应该简单地传递一个包含数组的变量：

Dim a As String() = {"STARTVALUE"}
PopulateDataSet("Management", a)

因此您可以a在调用PopulateDataSet.

于 2013-11-25T09:42:28.297 回答
1

在您的最后一次编辑中，您试图将一个值分配给一个空数组，因此它应该启动一个Object reference not set to an instance of an object异常，您需要在声明时指定数组边界：

Dim a(0) As String
a(0) = "FirstValue"

或者你可以这样做：

Dim a As String() = {"FirstValue"}

您在问题上发布的第一个代码效果很好（修复了一些语法），并且我所做的下一个修改也在工作，如果您仍然遇到数组边界/值的问题，那么错误可能在您的代码的其他部分. 为确保这不是变量问题，请使用本示例中的任何方法声明它。 

Public Class Form1
Private a As String()

Private Sub Test() ' Handles MyBase.Shown
    PopulateDataSet("Hello", a) : MsgBox(a.First)
    PopulateDataSet("World!", a, 5) : MsgBox(a(5))
    PopulateDataSet("I've said Hello World!", a, 10) : MsgBox(a.Last)
End Sub

Public Sub PopulateDataSet(ByVal NewValue As String,
                           ByRef Array As String(),
                           Optional ByVal ItemIndex As Integer = 0)

    If Array Is Nothing Then
        System.Array.Resize(Array, 1)
    ElseIf Not Array.Count > ItemIndex Then
        Do Until Array.Count > ItemIndex
            System.Array.Resize(Array, Array.Count + 1)
        Loop
    End If

    Array(ItemIndex) = NewValue

End Sub

End Class
于 2013-11-25T08:21:51.627 回答