PanelBar item postback

1 posts, 0 answers
  1. A K
    A K avatar
    49 posts
    Member since:
    Apr 2010

    Posted 19 Apr 2010 Link to this post

    I am dynamically loading RadpanelItems with diffenent user controls. When I click save button on one of the user controls, it sends postback to page and reloads all these panel items. Can I just postback current panel Item?

    This is my code. Every time I click any button on the user controls reloads panelbar.

     

     

          Private Sub SetPanelItems(ByVal account As Account, ByVal radParentItem As RadPanelItem, ByVal focusAccountId As String)

     

                'This method selects user control for Panel according to account Type

     

                Dim radPanelNew As New RadPanelItem                                       'New items will be added to panel bar

                Dim radPanelNewChild As New RadPanelItem

                Dim acct As SubscriberSetupPages_UserControls_Account

               

                With radPanelNew

                      .Text = account.Name.ToString

                      .Value = account.Name

                      .Font.Italic = True

                      .Font.Underline = True

                      .Font.Size = 10

                End With

                If UCase(account.Id.ToString) = UCase(focusAccountId) Then                                                    'Trying to set expanded property to true to set focus to particular account. This is needed when this page is called from Alert set up to show account related to selected Alert

                      radPanelNew.Expanded = True

                      radPanelNewChild.Expanded = True

                End If

                'Depending on Account type or SubType User control is loaded in the panel item

                Select Case account.Type.Text

                      Case Entities.Account.AccountType.Bank.ToString

                            If account.SubType.Text = Entities.Account.SubAccountType.Savings.ToString Then

                                  Dim ucSavings As SubscriberSetupPages_UserControls_SavingsAccount = CType(LoadControl("~/SubscriberSetupPages/UserControls/SavingsAccount.ascx"), SubscriberSetupPages_UserControls_SavingsAccount)

                                  ucSavings.AccountID = account.Id

                                  ucSavings.ID = account.Id.ToString

                                  acct = DirectCast(ucSavings.FindControl("acct1"), SubscriberSetupPages_UserControls_Account)

                                  radPanelNewChild.Controls.Add(ucSavings)

                            ElseIf account.SubType.Text = Entities.Account.SubAccountType.Checking.ToString Then

                                  Dim ucChecking As ACDCA.MyFmNow.SubscriberSetupPages_UserControls_CheckingAccount = CType(LoadControl("~/SubscriberSetupPages/UserControls/CheckingAccount.ascx"), ACDCA.MyFmNow.SubscriberSetupPages_UserControls_CheckingAccount)

                                  ucChecking.ID = account.Id.ToString

                                  ucChecking.AccountID = account.Id

                                  acct = DirectCast(ucChecking.FindControl("acct1"), SubscriberSetupPages_UserControls_Account)

                                  radPanelNewChild.Controls.Add(ucChecking)

                            ElseIf account.SubType.Text = Entities.Account.SubAccountType.CreditLine.ToString Then

                                  Dim ucCreditLine As ACDCA.MyFmNow.SubscriberSetupPages_UserControls_CreditLine = CType(LoadControl("~/SubscriberSetupPages/UserControls/CreditLine.ascx"), ACDCA.MyFmNow.SubscriberSetupPages_UserControls_CreditLine)

                                  ucCreditLine.AccountID = account.Id

                                  acct = DirectCast(ucCreditLine.FindControl("acct1"), SubscriberSetupPages_UserControls_Account)

                                  radPanelNewChild.Controls.Add(ucCreditLine)

                            End If

                      Case Entities.Account.AccountType.CreditCard.ToString

                            Dim ucCreditCard As ACDCA.MyFmNow.SubscriberSetupPages_UserControls_CreditCard = CType(LoadControl("~/SubscriberSetupPages/UserControls/CreditCard.ascx"), ACDCA.MyFmNow.SubscriberSetupPages_UserControls_CreditCard)

                            ucCreditCard.AccountID = account.Id

                            acct = DirectCast(ucCreditCard.FindControl("acct1"), SubscriberSetupPages_UserControls_Account)

                            radPanelNewChild.Controls.Add(ucCreditCard)

                      Case Entities.Account.AccountType.Loan.ToString

                            Dim ucLoan As ACDCA.MyFmNow.SubscriberSetupPages_UserControls_Loan = CType(LoadControl("~/SubscriberSetupPages/UserControls/Loan.ascx"), ACDCA.MyFmNow.SubscriberSetupPages_UserControls_Loan)

                            ucLoan.AccountID = account.Id

                            acct = DirectCast(ucLoan.FindControl("acct1"), SubscriberSetupPages_UserControls_Account)

                            radPanelNewChild.Controls.Add(ucLoan)

                      Case Entities.Account.AccountType.Investment.ToString

                            Dim ucInvestment As ACDCA.MyFmNow.SubscriberSetupPages_UserControls_InvestmentAccount = CType(LoadControl("~/SubscriberSetupPages/UserControls/InvestmentAccount.ascx"), ACDCA.MyFmNow.SubscriberSetupPages_UserControls_InvestmentAccount)

                            ucInvestment.AccountID = account.Id

                            acct = DirectCast(ucInvestment.FindControl("acct1"), SubscriberSetupPages_UserControls_Account)

                            radPanelNewChild.Controls.Add(ucInvestment)

                End Select

                ' Setting up OnClient click for button on user control

                Dim btnSecurityQA As ImageButton = DirectCast(acct.FindControl("btnSecurityQA"), ImageButton)

               

                acct.Account = account ''This needs to set here to set control visibilities on Account user Control

                radPanelNew.Items.Add(radPanelNewChild)

                With radParentItem

                      .Items.Add(radPanelNew)

                      .DataBind()

                      .Expanded = True

                End With

     

          End Sub

Back to Top