VB.Net – 将值分配给1行MultiDimensional Array

发布时间：2020-12-17 07:13:05 所属栏目：百科来源：网络整理

导读：我找不到一种简单的方法来为多维数组赋值.它的工作原理如下： Dim tTableArray(2,14) As StringtTableArray(0,0) = "John"tTableArray(1,0) = "Doe" 但似乎我应该能够做到这样的事情： Dim tTableArray(2,14) As StringtTableArray({0,1},0) = {"John","Doe"

我找不到一种简单的方法来为多维数组赋值.它的工作原理如下：

Dim tTableArray(2,14) As String
tTableArray(0,0) = "John"
tTableArray(1,0) = "Doe"

但似乎我应该能够做到这样的事情：

Dim tTableArray(2,14) As String
tTableArray({0,1},0) = {"John","Doe"}

看起来有必要这样做,因为当你定义数组时,你可以,例如：

Dim values(,) As String = New String(,) {{"John","Doe"},{"Jane",{"Spot","the Dog"}}

有任何想法吗？对不起,第一个问题 – 仍然需要弄清楚如何使代码块看起来像代码.

谢谢,
克里斯

解决方法

我不知道有一种内置的方式来分配它,但是一个自制的子可能同样好.延期建议：

Imports System.Runtime.CompilerServices  
Module Module1

    <Extension()>
    Public Sub setRow(p(,) As Object,pRow As Integer,pValues As Object())
        If p.GetLength(1) >= pValues.Length Then
            For i As Integer = 0 To pValues.Length - 1
                p(pRow,i) = pValues(i)
            Next
        End If
    End Sub

End Module

用法：

Private Sub Button1_Click(sender As System.Object,e As System.EventArgs) Handles Button1.Click
        Dim x(,) As String
        ReDim x(2,4)

        x.setRow(0,{"Mr.","","John","Doe","-"})
        x.setRow(1,{"Ms.","Dr.","Sue","Smith","-"})
        ' ...

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!