Question

我使用GetRows（）方法将记录集放入2D数组中。我可以像这样访问各个数组项：

x = rows(colNumber, rowNumber)

现在我想从这个数组中获取整行/维度并将其传递给另一个函数。

有没有这样做的方法？我找不到一个。寻找这样的东西：

entireSingleRow = rows(*, rowNumber)

Answer 1

语言中没有这样的构造，但是下面的“帮助者”会做“

REM 'Returns 1-D array of all "columns" in a "row" with index "rowNumber"'
REM 'from the 2-D "from2DArray" array (column, row)'
Function GetCols(ByRef from2DArray, ByVal rowNumber)
    Dim cols : cols = UBound(from2DArray, 1)
    Dim i
    Dim result()
    For i = 0 To cols
        Redim Preserve result(i)
        result(i) = from2DArray(i, rowNumber)
    Next

    GetCols = result
End Function

entireSingleRow = GetCols(rows, rowNumber)

有没有办法使用GetRows（）方法访问整行？

1 个答案: