从会话中的二维数组列表中获取值

Question

我有一个二维数组列表，有 2 个固定列和动态行。数组列表将被分配给下面代码末尾的会话变量。我的问题是如何从会话中循环遍历数组列表以获取其值？

If .SQLDS.Tables(.sSQLDSTbl).Rows.Count > 0 Then
    Dim NoOfAdjType(1, .SQLDS.Tables(.sSQLDSTbl).Rows.Count - 1)

    For iRow As Integer = 0 To .SQLDS.Tables(.sSQLDSTbl).Rows.Count - 1
        If Not .SQLDS.Tables(.sSQLDSTbl).Rows(iRow).Item("i_commAmt") Is System.DBNull.Value Then
            NoOfAdjType(0, iRow) = .SQLDS.Tables(.sSQLDSTbl).Rows(iRow).Item("productType")
            NoOfAdjType(1, iRow) = Format(.SQLDS.Tables(.sSQLDSTbl).Rows(iRow).Item("i_commAmt"), "#,##0.00")
        End If
    Next

        Session("iNoOfAdjAmtType") = NoOfAdjType
End If

我已经尝试过这个，但它给了我错误“‘公共可重写默认属性项（索引为整数）作为对象’的参数太多”

Dim NoOfAdjType As ArrayList = CType(Session("iNoOfAdjAmtType"), ArrayList)
For i As Integer = 0 To NoOfAdjType.Count
    Dim a As String = NoOfAdjType(0, i)
    Dim b As String = NoOfAdjType(1, i)
Next

Answer 1

您正在处理的类型是Object(,)。因此，当从会话中读取数据时，您可以将其转换回这种类型。

以下是 MSDN 上的文章，说明了如何从会话中读取值

Dim NoOfAdjType as Object(,) = CType(Session("iNoOfAdjAmtType"), Object(,))
' do something with the list

：如果您想安全地执行检查，确保会话中存在具有给定 id 的项目：

If Session.Item("iNoOfAdjAmtType") IsNot Nothing Then
    ' We have a value in the session with the given id
    Dim NoOfAdjType as Object(,) = CType(Session("iNoOfAdjAmtType"), Object(,))
End If

Answer 2

我不确定数组的数据类型是什么，但这就是如何在 VB.NET 中操作多维数组（假设数据类型为对象）

' declaring variable of multi-dim array
Dim NoOfAdjType As Object(,)
' create array object of needed dimension (you may use redim keyword)
NoOfAdjType = new Object(1, .SQLDS.Tables(.sSQLDSTbl).Rows.Count - 1) {}

...

' push it in session
 Session("iNoOfAdjAmtType") = NoOfAdjType

...

' get back from session
NoOfAdjType = DirectCast(Session("iNoOfAdjAmtType"), Object(,))
...
For i As Integer = 0 To NoOfAdjType.GetLength(0)
   For j As Integer = 0 To NoOfAdjType.GetLength(1)
      Dim a As Object = NoOfAdjType(i, j);
      ...
   Next
Next

请参阅此 MSDN 文章了解 VB.NET 中的数组： http://msdn.microsoft.com/en-us/library/wak0wfyt.aspx

Answer 3

试试这个，

Dim a As String = NoOfAdjType(0)(0,0)

或者使用

For Each arr As Object(,) In NoOfAdjType

Next