地狱

     Public   Sub DdlItem_SelectedIndexChanged() Sub DdlItem_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim DdlItem As DropDownList = sender
        If DdlItem.SelectedValue <> "0|0" Then
            Select Case DdlItem.SelectedValue.Split("|")(0)
                Case "Delete"
                    Page.Response.Redirect("BankDelete.aspx?id=" & ModSec.EnText(DdlItem.SelectedValue.Split("|")(1)))
                Case "Customer"
                    Page.Response.Redirect("ChgMemberInfo.aspx?id=" & ModSec.EnText(DdlItem.SelectedValue.Split("|")(1)))
            End Select
        End If
    End Sub

     Private   Sub DtgList_ItemDataBound() Sub DtgList_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DtgList.ItemDataBound
        If e.Item.ItemIndex >= 0 Then
            Dim DdlItem As DropDownList = e.Item.FindControl("DdlItem")
            If Not IsDBNull(DdlItem) Then
                Dim item_nothing As New ListItem("请选择动作", "0|0") : DdlItem.Items.Add(item_nothing)
                Dim item_Manage As New ListItem("删除此款项", "Delete|" & DataBinder.Eval(e.Item, "DataItem.ID")) : DdlItem.Items.Add(item_Manage)
                Dim item_Customer As New ListItem("查看客户信息", "Customer|" & DataBinder.Eval(e.Item, "DataItem.Customer")) : DdlItem.Items.Add(item_Customer)

            End If
        End If
    End Sub