0

我有个问题。

Dim Maxis As String
        'Dim MaxisExtra As String
        Dim b As New ArrayList
        Dim WS As New WebService1.Service1
        Dim cnt As String
        Dim MRWS As New MobileReload_WS.MobileReload_WS
        cnt = WS.StockCountTelco(1, Session("Maxis"))
        If CInt(cnt) >= CInt(DropDownList1.SelectedItem.Text) Then
            Dim sLock As String
            sLock = MRWS.LockAStock(1, 1, "Online", Session("Maxis"), DropDownList1.SelectedItem.Text)
            Session("sLock") = sLock

            If sLock = "" Then
                PopupMsgBox("Unable to allocate Stock")
            Else
                Maxis = "Maxis" & ";" & Session("Maxis") & ";" & DropDownList1.SelectedItem.Text & ";" & Session("Cost")
                'If MaxisExtra = "" Then
                '    b.Add(Maxis)
                '    Elseif
                '    MaxisExtra = MaxisExtra + Maxis
                '    b.Add(MaxisExtra)
                'End If                
            End If
        Else
            PopupMsgBox("Not enough stock")
        End If
        b.Add(Maxis)
        Session("Transaction") = b
    End Sub

我第一次将字符串输入到数组列表中是可以的。但是当用户第二次再次按下按钮添加时，它会替换第一个字符串。谁能帮助我如何根据我的编码将字符串保存到第二个插槽中？

4

2 回答 2

0

如果您在谈论b ArrayList，那么您每次都在创建一个新的并将新的存储ArrayList在Session("Transaction")

也许你的意思是这样的......

Dim b as ArrayList = Session("Transaction")
If b Is Nothing Then
  b = new ArrayList
End If
...
Session("Transaction") = b

虽然很难准确的说，因为你的代码很乱，不清楚

于 2013-03-08T08:57:01.803 回答
0

您将数组列表放入会话变量中，但您从未将其读回。您每次都创建一个新的数组列表，因此它将始终为空并替换前一个。

如果有，则从会话变量中获取数组列表：

Dim b As ArrayList = Session("Transaction")
If b Is Nothing Then b = New ArrayList
于 2013-03-08T08:58:15.890 回答