如何在aspx页面之间传递集合列表?

时间:2013-12-09 05:05:54

标签: vb.net

我尝试创建对象类型列表,并从另一个页面通过会话获取类类型列表,但是当完成分配时,它不能简单地从代码中出来。

Public Sub GetvalueContains(ByVal txtFilterText As String, ByVal strColPropertyName As String, ByVal collectionName As String)

    Dim FilteredAgentsList As New List(Of Object)
    FilteredAgentsList = CType(HttpContext.Current.Session("FilteredAgentsList"), Object)
    AgentList = Session("AgentList")
    FilteredAgentsList = CType(HttpContext.Current.Session("AgentList"), Object)
    Dim FilteredAgentsListdetails As New List(Of Object)
    FilteredAgentsListdetails = HttpContext.Current.Session("FilteredAgentsListdetails")
    Dim indx As Integer = 0
    Dim indexx As Integer = collectionName.IndexOf("_")
    indexx = indexx + 1
    Dim str As String = collectionName.Substring(indexx, collectionName.Length - indexx)

    Dim grdagents As GridView = HttpContext.Current.Session("grdAgents")

        If FilteredAgentsListdetails.Count > 0 Then
            FilteredAgentsList = FilteredAgentsListdetails
        End If
        Dim AgentListTemp As List(Of Object) = HttpContext.Current.Session("AgentListTemp")
        AgentListTemp = FilteredAgentsList

        'FilteredAgentsListdetails = New List(Of Agents)
        strColPropertyName = GetPropertyNameAtIndex(AgentListTemp, Convert.ToInt32(hdncellindex.Value))
        txtFilterText = txtFilterText.Replace("*", "")
        Dim resultList As IEnumerable(Of Object)
        resultList = AgentListTemp.Where(Function(x) x.[GetType]().GetProperty(strColPropertyName).GetValue(x, Nothing).ToString().StartsWith(txtFilterText))
        'AgentListTemp = CType(resultList.ToList(), List(Of Agents))
        'FilteredAgentsListdetails = AgentListTemp

        grdagents.DataSource = Nothing
        grdagents.DataBind()
        grdagents.DataSource = resultList
        grdagents.DataBind()


End Sub

如何在上面的代码中获取会话值?或者将列表从一个页面传递到另一个页面的任何其他方法。

0 个答案:

没有答案