asp.net 2个listbox互传值例子

Imports System.Data

Partial Class test
    Inherits System.Web.UI.UserControl

    Private g_dtaSearch As DataTable
    Private g_dtaSelected As DataTable

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        List_Initialize()

        If Session("dtaSelected") Is Nothing Then

        Else
            g_dtaSelected = Session("dtaSelected")

        End If

        bind()

    End Sub

    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender

        bind()

    End Sub

    Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload