ASP.NET VB环境下List.Add替换索引0而非追加元素问题求助

ASP.NET Web Form 遵循每次请求重建页面实例的生命周期逻辑，你在页面类中定义的QueueList属于页面实例成员，每次按钮点击触发回发（PostBack）时，整个页面对象都会重新初始化，QueueList也会被重置为全新的空列表。你观察到的「覆盖索引0、Count始终为1」不是List.Add方法的问题，是每次操作的都是全新的空列表，新增的永远是第一个元素。

Web Form 中要跨请求保存用户级别的临时数据，最常用的方案是使用会话存储Session，修改逻辑如下：

1. 新增Page_Load初始化逻辑，首次打开页面时初始化队列：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    ' 仅首次非回发请求初始化队列
    If Not IsPostBack Then
        Session("UserQueueList") = New List(Of QueueItem)()
    End If
End Sub

2. 修改按钮点击事件，从Session中读写队列数据：

Protected Sub AddToQueueButton_Click(sender As Object, e As EventArgs) Handles AddToQueueButton.Click
    ' 从Session取出当前用户的队列
    Dim QueueList As List(Of QueueItem) = CType(Session("UserQueueList"), List(Of QueueItem))
    ' 加空判断避免Session过期导致异常
    If QueueList Is Nothing Then
        QueueList = New List(Of QueueItem)()
    End If

    ' 追加新条目
    QueueList.Add(New QueueItem() With {
        ._TestName = TestName.SelectedValue,
        ._ValueID = ValueID.SelectedValue,
        ._MathOperator = MathOperator.SelectedValue,
        ._ValueInput = ValueInput.Text
    })

    ' 将更新后的队列存回Session
    Session("UserQueueList") = QueueList

    ' 测试逻辑，可验证计数和新增内容
    Dim count = QueueList.Count
    Dim latestItem = QueueList(count - 1)
    Dim testmessage As String = $"队列总条数：{count} | 最新条目：{latestItem._TestName} | {latestItem._ValueID} | {latestItem._MathOperator} | {latestItem._ValueInput}"
    Response.Write("<script language='javascript'>alert('" + testmessage + "');</script>")
End Sub

如果你的队列数据量很小，也可以选择ViewState存储，数据会保存在页面视图状态中，不会受Session过期影响；如果数据需要跨浏览器会话保存，建议持久化到数据库。

内容的提问来源于stack exchange，提问作者Panda