我有一个使用UpdatePanel
的用户控件。控件本质上是一个带有Button
的表。当用户单击Button
时,会打开一个模式弹出窗口,允许他们选择一些值。表的数据(使用Repeater
作为其DataSource
)存储在部分回发之间的会话变量中(当UpdatePanel
触发时)作为对象列表。如果我只有一个控件,一切正常,但如果我在同一页面中多次使用此控件,会话变量中的对象列表将被合并,并且不会为每个控件分开。我认为这可能是因为会话变量名称不是唯一的,所以在我调用或使用变量的任何地方,我这样做:
Dim sessionName as string = Me.UniqueID & "_" & "userNotificationDS"
Session(sessionName) = myListOfObjects
但这并没有改变结果。谁知道我在这里做错了什么?如果您认为完整的代码会有所帮助,请告诉我。
控制服务器代码:
Protected Sub delete_click(ByVal sender As Object, ByVal e As EventArgs)
Dim btn As LinkButton = CType(sender, LinkButton)
Dim ds As New List(Of myObject)
sessionName = Me.UniqueID & "_" & "myDataSet"
ds = Session(sessionName.ToString)
Dim id As String = btn.CommandArgument
ds.RemoveAll(Function(userNotification) userNotification.User.NetworkID.Equals(id))
Session(sessionName.ToString) = ds
bindData(ds)
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
sessionName = Me.UniqueID & "_" & "myDataSet"
If (Session(sessionName.ToString) IsNot Nothing) Then
bindData(Session(sessionName.ToString))
End If
End Sub
Private Function buildPagedSet(ByVal userNotification As List(Of myObject)) As PagedDataSource
Dim ps As PagedDataSource = New PagedDataSource()
ps.DataSource = userNotification
ps.AllowPaging = True
ps.PageSize = numRows
Return ps
End Function
Public Sub bindData(ByVal commentList As List(Of myObject))
sessionName = Me.UniqueID & "_" & "myDataSet"
Dim currentPage As Integer = 0
Dim ps As PagedDataSource
Dim numLable As Label
Dim denomLable As Label
Dim curPage As Integer = 1
Dim totalPage As Integer = 0
If (Not myObject Is Nothing) Then
Try
ps = buildPagedSet(commentList)
totalPage = ps.PageCount
Session(sessionName.ToString) = commentList
rowTotal = ps.Count
'for paging
If Not (ViewState(Me.UniqueID & "_Page") Is Nothing) Then
currentPage = Convert.ToInt32(ViewState(Me.UniqueID & "_Page"))
Else
ViewState(Me.UniqueID & "_Page") = 1
currentPage = 1
End If
If (currentPage > 0 And currentPage <= ps.PageCount) Then
ps.CurrentPageIndex = currentPage - 1
Me.dataRepeateUsers.DataSource = ps
Me.dataRepeateUsers.DataBind()
ElseIf (currentPage >= ps.PageCount) Then
ViewState(Me.UniqueID & "_Page") = Convert.ToInt32(ViewState(Me.UniqueID & "_Page")) - 1
ElseIf (currentPage <= 0) Then
ViewState(Me.UniqueID & "_Page") = Convert.ToInt32(ViewState(Me.UniqueID & "_Page")) + 1
Else
End If
Catch ex As Exception
Throw
End Try
Else
Dim emptySet As New List(Of myObject)
Me.dataRepeateUsers.DataSource = emptySet
Me.dataRepeateUsers.DataBind()
End If
End Sub
控件实例化如下:
Me.notifier1.bindData(notificationList)
在此示例中,当用户从notifier1删除某些内容(delete_click事件)时,该对象将从列表中删除,并将其添加回会话。如果有任何原因导致notifier2的更新面板触发,它将显示与notifier1相同的确切数据
答案 0 :(得分:2)
我的预感是您将myListOfObjects
存储在会话中,但重新使用该对象并修改它并使用不同的密钥再次将其存储在Session
中。它可能仍然是为Session
个键存储的相同对象。
您可以通过在Session
中使用两个不同的键存储对象来进行简单的测试。然后使用第一个键将其拉出并修改该对象,不要将其重新分配回Session
(不需要)。现在从第二个键中拉出另一个对象并查看它。它将匹配修改,因为对象是仅存储在Session
中的两个不同键下的同一对象。
答案 1 :(得分:0)
如果Kelsey的预感正确,您可以将myListOfObjects的每个实例存储在Dictionary(Of String, myListOfObjectsType)
中,并使用.UniqueID作为键(Of String部分)。