动态添加链接按钮的处理程序不会被调用

时间:2014-12-08 20:25:07

标签: asp.net vb.net

我在我的后代码LinkBut​​ton中生成但由于某种原因,我没有调用我附加到链接按钮的处理程序。

在页面加载事件中调用GetRegionName()

apsx网页代码:

<div class="GeneralFontShape">
                        <asp:LinkButton ID="lblDynamicRegion" runat="server"  AutoPostBack="False"></asp:LinkButton>
                     <asp:Panel ID="Panel1" runat="server"></asp:Panel>
 </div>

VB.Net代码:

Public Sub GetRegionName()
    Try
        Dim dba As New DBAccess()
        Dim dt As DataTable = dba.GetEFolderUserLocations(m_User.SessionID, m_User.UserID, m_User.CompanyCode)
        If Not dt Is Nothing Then
            Dim RegionName As String = Nothing
            Dim RegionID As String = Nothing
            Dim output As String = Nothing

            For Each dr As DataRow In dt.Rows()
                RegionName = dr.Item("RegionName").ToString()
                RegionID = dr.Item("RegionID").ToString()

                '# Creating instance of LinkButton
                Dim lb As New LinkButton()
                lb = New LinkButton()
                lb.Text = RegionName '# LinkButton Text
                lb.ID = RegionID.ToString() '# LinkButton ID's
                lb.CommandArgument = RegionID.ToString() '# LinkButton CommandArgument
                lb.CommandName = RegionName '# LinkButton CommanName
                AddHandler lb.Click, AddressOf lb_Command '# Create Handler for it
                Panel1.Controls.Add(lb)

                Dim lbl As New Label()
                lbl.Text = "<br>"
                Panel1.Controls.Add(lbl)

            Next
        End If

    Catch ex As Exception

    End Try
End Sub

Private Sub lb_Command(ByVal sender As Object, ByVal e As CommandEventArgs)
    Try

        Dim lnk As LinkButton = TryCast(sender, LinkButton)

    Catch ex As Exception

    End Try

End Sub


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

    If Not IsPostBack Then
        GenerateControls()
        GenerateDataSets()
        'GenerateLabels()
        GenerateLinks()
        'GenerateOther()
    End If
End Sub

在GenerateControls()

中调用了函数GetRegionName()

0 个答案:

没有答案