Dear All,
I am facing this problem whenever I am using RadAjaxPanel my javascript variables are not getting refreshed i.e they are not being initialized with default value. I am also not getting my RadAlert Boxes which I have added from code behind for Save and Delete purpose. Please help me in solving this problem. For your reference I am attaching the form code behind and aspx along with javascript.
Regards,
Noor Hussain
I am facing this problem whenever I am using RadAjaxPanel my javascript variables are not getting refreshed i.e they are not being initialized with default value. I am also not getting my RadAlert Boxes which I have added from code behind for Save and Delete purpose. Please help me in solving this problem. For your reference I am attaching the form code behind and aspx along with javascript.
Regards,
Noor Hussain
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="frmCurrencies.aspx.vb" Inherits="BNBERP.frmCurrencies" %><%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> <title></title> </head><body> <form id="form1" runat="server"> <div> <telerik:RadScriptManager ID="RadScriptManager1" runat="server"> </telerik:RadScriptManager> <telerik:RadWindowManager ID="RadWindowManager1" runat="server"> </telerik:RadWindowManager> <telerik:RadAjaxManager ID="RadAjaxManager1" runat="server" DefaultLoadingPanelID="RadAjaxLoadingPanel2"> <AjaxSettings> <telerik:AjaxSetting AjaxControlID="RadToolBar1"> <UpdatedControls> <telerik:AjaxUpdatedControl ControlID="RadSplitter1"/> </UpdatedControls> </telerik:AjaxSetting> </AjaxSettings> </telerik:RadAjaxManager> <telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel2" runat="server" Skin="Default"> </telerik:RadAjaxLoadingPanel> <telerik:RadCodeBlock ID="RadCodeBlock1" runat="server"> <script type="text/javascript"> //KeyDown for Alphabets function KeyDownAlphabetsOnly(e) { if (e.keyCode != 8 && e.keyCode != 32 && e.keyCode != 190) { if (e.shiftKey) { if (90 >= e.keyCode && e.keyCode >= 65) { e.returnValue = true; } else { e.returnValue = false; } } else if (90 >= e.keyCode && e.keyCode >= 65) { e.returnValue = true; } else { e.returnValue = false; } } else e.returnValue = true; } //Keydown function for numbers only function KeyDownForNumbersOnly(e) { if (e.keyCode != 8) { if (e.keyCode < 48 || e.keyCode > 57) return false; else if (e.shiftKey == 1) return false; else return true; } return true; } //KeyPress Function for Alphabets only function AlphabetOnly(sender, eventArgs) { var c = eventArgs.get_keyCode(); if ((c < 65) || (c > 90 && c < 97) || (c > 122)) eventArgs.set_cancel(true); } //KeyDown Function for Aplhanumeric fields function KeyDownAlphaNumeric(e) { if (e.keyCode != 8) { if (e.shiftKey) { if (90 >= e.keyCode && e.keyCode >= 65) { e.returnValue = true; } else { e.returnValue = false; } } else if (90 >= e.keyCode && e.keyCode >= 65) { e.returnValue = true; } else if (57 >= e.keyCode && e.keyCode >= 48) { e.returnValue = true; } else { e.returnValue = false; } } else e.returnValue = true; } //Validation Function function OnClientClicking(sender, args) { var button = sender.get_text(); //Closing the form if (button == "Ok") { //Cancel the PostBack and return args.set_cancel(true); //Obtain a reference to the parent window manager var oManager = GetRadWindow().get_windowManager(); //Close the window oManager.closeActiveWindow(); } //Checking if any text is in the controls before closing the form on cancel event if (button == "Cancel") { var button1 = $find("<%= btnAdd.ClientID %>"); var txtCurrCode = $find("<%= txtCurrencyCode.ClientID %>"); var txtCurrName = $find("<%= txtCurrencyName.ClientID %>"); var txtNumericCode = $find("<%= txtNumericCode.ClientID %>"); debugger //Check if any text is there in the controls if (txtCurrCode.isEmpty() != true || txtCurrName.isEmpty() != true || txtNumericCode.isEmpty() != true) { if (button1.get_text() == "Add" || button1.get_text() == "Update") { if (!clickCalledAfterRadconfirm) { args.set_cancel(true); lastClickedItem = sender; radconfirm("Any unsaved data will be lost. Do you wish to continue ?", CancelconfirmCallbackFunction, 330, 100, null, 'Currencies'); } else { //Cancel the PostBack and return args.set_cancel(true); //Obtain a reference to the parent window manager var oManager = GetRadWindow().get_windowManager(); //Close the window oManager.closeActiveWindow(); } } else { //Cancel the PostBack and return args.set_cancel(true); //Obtain a reference to the parent window manager var oManager = GetRadWindow().get_windowManager(); //Close the window oManager.closeActiveWindow(); } } else { //Cancel the PostBack and return args.set_cancel(true); //Obtain a reference to the parent window manager var oManager = GetRadWindow().get_windowManager(); //Close the window oManager.closeActiveWindow(); } } //Validation Starts here if (button == "Add" || button == "Update") { //Check for Currency Code empty var txtCurrCode = $find("<%= txtCurrencyCode.ClientID %>"); if (txtCurrCode.isEmpty() == true) { //Set the Focus txtCurrCode.focus(); //Show the alert message radalert('Please enter the Currency Code.', 330, 100, 'Currencies'); return false; } //Check for Currency Name empty var txtCurrName = $find("<%= txtCurrencyName.ClientID %>"); if (txtCurrName.isEmpty() == true) { //Show the alert message radalert('Please enter the Currency Name.', 330, 100, 'Currencies'); return false; //Set the Focus txtCurrName.focus(); } } } //Confirmation messagebox function var lastClickedItem = null; var clickCalledAfterRadconfirm = false; function onClientButtonClicking(sender, args) { //Confirmation Messagebox for Delete button if (args.get_item().get_index() == "3") { if (!clickCalledAfterRadconfirm) { args.set_cancel(true); lastClickedItem = args.get_item(); radconfirm("Are you sure you want to delete the currency?", confirmCallbackFunction,330, 100, null, 'Currencies'); } } //Confirmation Messagebox for Browse,Add,Search button if (args.get_item().get_index() == "0" || args.get_item().get_index() == "1" || args.get_item().get_index() == "4" || args.get_item().get_index() == "5" || args.get_item().get_index() == "6" || args.get_item().get_index() == "7") { var button = $find("<%= btnAdd.ClientID %>"); var txtCurrCode = $find("<%= txtCurrencyCode.ClientID %>"); var txtCurrName = $find("<%= txtCurrencyName.ClientID %>"); var txtNumericCode = $find("<%= txtNumericCode.ClientID %>"); //Check if any text is there in the controls if (txtCurrCode.isEmpty() != true || txtCurrName.isEmpty() != true || txtNumericCode.isEmpty() != true) { if (button.get_text() == "Add" || button.get_text() == "Update") { if (!clickCalledAfterRadconfirm) { args.set_cancel(true); lastClickedItem = args.get_item(); radconfirm("Any unsaved data will be lost. Do you wish to continue ?", confirmCallbackFunction, 330, 100, null, 'Currencies'); } } } } } //Call Back function for Confirmation Messagebox function confirmCallbackFunction(args) { if (args) { clickCalledAfterRadconfirm = true; lastClickedItem.click(); } else clickCalledAfterRadconfirm = false; lastClickedItem = null; } //Call Back function for Cancel Confirmation Messagebox function CancelconfirmCallbackFunction(args) { if (args) { clickCalledAfterRadconfirm = true; //lastClickedItem.click(); //Obtain a reference to the parent window manager var oManager = GetRadWindow().get_windowManager(); //Close the window oManager.closeActiveWindow(); } else clickCalledAfterRadconfirm = false; lastClickedItem = null; } //Get a reference to existing window function GetRadWindow() { var oWindow = null; if (window.radWindow) oWindow = window.radWindow; else if (window.frameElement.radWindow) oWindow = window.frameElement.radWindow; return oWindow; } </script> </telerik:RadCodeBlock> <telerik:RadSplitter runat="Server" ID="RadSplitter1" Width="100%" BorderSize="0" BorderStyle="Inset" PanesBorderSize="1" Orientation="Horizontal" VisibleDuringInit="false"> <telerik:RadPane ID="RadPane1" runat="server"> <%--<telerik:RadAjaxPanel ID="RadAjaxPanel1" runat="server" LoadingPanelID="RadAjaxLoadingPanel1"> --%> <telerik:RadToolBar ID="RadToolBar1" runat="server" Width="99%" Height="22px" style="position:absolute;top:1px; left:1px" OnClientButtonClicking="onClientButtonClicking"> <Items> <telerik:RadToolBarButton ToolTip="NEW" ImageUrl="../Images/add.png" /> <telerik:RadToolBarButton ToolTip="SEARCH" ImageUrl="../Images/search16.png" /> <telerik:RadToolBarButton ToolTip="EDIT" ImageUrl="../Images/edit.png" /> <telerik:RadToolBarButton ToolTip="DELETE" ImageUrl="../Images/del.png" /> <telerik:RadToolBarButton ToolTip="FIRST" ImageUrl="../Images/first16.png" /> <telerik:RadToolBarButton ToolTip="PREVIOUS" ImageUrl="../Images/back16.png" /> <telerik:RadToolBarButton ToolTip="NEXT" ImageUrl="../Images/play16.png" /> <telerik:RadToolBarButton ToolTip="LAST" ImageUrl="../Images/last16.png" /> <telerik:RadToolBarButton ToolTip="SAVE AS" ImageUrl="../Images/saveas.gif" /> <telerik:RadToolBarButton ToolTip="BASE-DOCUMENT" ImageUrl="../Images/baseDoc.png" /> <telerik:RadToolBarButton ToolTip="TARGET-DOCUMENT" ImageUrl="../Images/targetDoc.png" /> <telerik:RadToolBarButton ToolTip="PRINT-PREVIEW" ImageUrl="../Images/print_preview.png" /> <telerik:RadToolBarButton ToolTip="PRINT" ImageUrl="../Images/Printer.png" /> <telerik:RadToolBarButton ToolTip="COPY-TO" ImageUrl="../Images/copyTo.png" /> <telerik:RadToolBarButton ToolTip="COPY-FROM" ImageUrl="../Images/copyFrom.png" /> </Items> </telerik:RadToolBar> <div style="margin-left:30px; margin-top:50px;font-size:11px;"> <table> <tr> <td width="110px"><span style="color: #0F3789;">Currency Code</span> </td> <td width="250px"> <telerik:RadTextBox ID="txtCurrencyCode" runat="server" width="200px" MaxLength="25" onkeydown="return KeyDownAlphaNumeric(event)"></telerik:RadTextBox> </td> </tr> <tr> <td><span style="color: #0F3789;">Currency Name</span></td> <td><telerik:RadTextBox ID="txtCurrencyName" runat="server" width="200px" MaxLength="100" > <ClientEvents OnKeyPress="AlphabetOnly" /> </telerik:RadTextBox> </td> </tr> <tr> <td><span style="color: #0F3789;">International Code</span></td> <td><telerik:RadTextBox ID="txtNumericCode" runat="server" width="200px" MaxLength="50" onkeydown="return KeyDownAlphaNumeric(event)" /></td> </tr> <tr> <td> <telerik:RadButton ID="btnAdd" runat="server" Text="Add" OnClientClicking="OnClientClicking" Width="50px"> </telerik:RadButton> </td> <td><telerik:RadButton ID="btnCancel" runat="server" Text="Cancel" OnClientClicking="OnClientClicking" Width="50px"> </telerik:RadButton></td> </tr> </table> </div> <%--</telerik:RadAjaxPanel>--%> </telerik:RadPane> </telerik:RadSplitter> </div> </form></body></html>Imports BNB.ELLImports BNB.BLLImports BNB.DALPublic Class frmCurrencies Inherits System.Web.UI.Page#Region "Variable Decleration" ''' <summary> ''' Entity Layer Object Initialisation ''' </summary> ''' <remarks></remarks> Public objELCurrencies As New ELCurrencies ''' <summary> ''' Business Layer Object Initialisation ''' </summary> ''' <remarks></remarks> Public objBLCurrencies As New BLCurrencies ''' <summary> ''' Data Layer Object Initialisation ''' </summary> ''' <remarks></remarks> Public objDLCurrencies As New DLCurrencies ''' <summary> ''' Dataset to hold the browsing data ''' </summary> ''' <remarks></remarks> Public dsBrowse As DataSet Public rowNum As Integer#End Region#Region "Methods" ''' <summary> ''' This method is used to clear the controls ''' </summary> ''' <remarks></remarks> Private Sub ClearControls() txtCurrencyCode.Text = "" txtCurrencyName.Text = "" txtNumericCode.Text = "" End Sub ''' <summary> ''' This Method is used for enabling or disabling controls ''' </summary> ''' <param name="enabledisable">True:Enables the controls ''' False:Disables the controls</param> ''' <remarks>True:Enables the controls ''' False:Disables the controls</remarks> Private Sub EnableDisableControls(ByVal enabledisable As Boolean) txtCurrencyCode.Enabled = enabledisable txtCurrencyName.Enabled = enabledisable txtNumericCode.Enabled = enabledisable End Sub ''' <summary> ''' This Method is used to set the form mode ''' </summary> ''' <param name="mode">0:New Mode ''' 1:Search Mode ''' 2:Browse Mode ''' 3:Edit Mode</param> ''' <remarks>Pass Integer Value</remarks> Private Sub FormMode(ByVal mode As Integer) Select Case mode Case "0" 'Add Mode 'Disable New Record RadToolBar1.Items(0).Enabled = False 'Disable Save As RadToolBar1.Items(8).Enabled = False 'Disable Base Document RadToolBar1.Items(9).Enabled = False 'Disable Target Document RadToolBar1.Items(10).Enabled = False 'Disable Print Preview Document RadToolBar1.Items(11).Enabled = False 'Disable Print RadToolBar1.Items(12).Enabled = False 'Disable Copy To RadToolBar1.Items(13).Enabled = False 'Disable Copy From RadToolBar1.Items(14).Enabled = False 'Disable Delete RadToolBar1.Items(3).Enabled = False 'Disable Edit RadToolBar1.Items(2).Enabled = False 'Enable the Search RadToolBar1.Items(1).Enabled = True 'Change the button text to Add btnAdd.Text = "Add" 'Focus the Main Textbox txtCurrencyCode.Focus() Case "1" 'Find Mode 'Disable the Search RadToolBar1.Items(1).Enabled = False 'Enable the New RadToolBar1.Items(0).Enabled = True 'Disable Save As RadToolBar1.Items(8).Enabled = False 'Disable Base Document RadToolBar1.Items(9).Enabled = False 'Disable Target Document RadToolBar1.Items(10).Enabled = False 'Disable Print Preview Document RadToolBar1.Items(11).Enabled = False 'Disable Print RadToolBar1.Items(12).Enabled = False 'Disable Copy To RadToolBar1.Items(13).Enabled = False 'Disable Copy From RadToolBar1.Items(14).Enabled = False 'Disable the Delete RadToolBar1.Items(3).Enabled = False 'Disable the Edit RadToolBar1.Items(2).Enabled = False 'Change the text to Search btnAdd.Text = "Search" 'Focus the Main Textbox txtCurrencyCode.Focus() Case "2" 'Browse Mode 'Enable the New RadToolBar1.Items(1).Enabled = True 'Enable the Search RadToolBar1.Items(0).Enabled = True 'Enable the Edit RadToolBar1.Items(2).Enabled = True 'Enable the Save As RadToolBar1.Items(8).Enabled = True 'Disable Print Preview Document RadToolBar1.Items(11).Enabled = True 'Disable Print RadToolBar1.Items(12).Enabled = True 'Enable the Delete RadToolBar1.Items(3).Enabled = True 'Change the text to Ok btnAdd.Text = "Ok" Case "3" 'Edit Mode 'Disable Save As RadToolBar1.Items(8).Enabled = False 'Disable Base Document RadToolBar1.Items(9).Enabled = False 'Disable Target Document RadToolBar1.Items(10).Enabled = False 'Disable Print Preview Document RadToolBar1.Items(11).Enabled = False 'Disable Print RadToolBar1.Items(12).Enabled = False 'Disable Copy To RadToolBar1.Items(13).Enabled = False 'Disable Copy From RadToolBar1.Items(14).Enabled = False 'Disable the Delete RadToolBar1.Items(3).Enabled = False 'Disable the Edit RadToolBar1.Items(2).Enabled = False 'Change the text to Ok btnAdd.Text = "Update" End Select End Sub#End Region#Region "Properties"#End Region#Region "Events" ''' <summary> ''' Event for Page Load ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks>Page Initialisation Code</remarks> Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Page.IsPostBack = False Then Try 'Set the Form Mode to New FormMode(0) 'Enable Controls EnableDisableControls(True) 'Set the focus txtCurrencyCode.Focus() Catch ex As Exception Finally End Try End If End Sub ''' <summary> ''' ToolBar Event ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks></remarks> Private Sub RadToolBar1_ButtonClick(ByVal sender As Object, ByVal e As Telerik.Web.UI.RadToolBarEventArgs) Handles RadToolBar1.ButtonClick Try Select Case e.Item.Index Case "0" 'New Button 'Set The Form Mode FormMode(0) 'Clear the controls ClearControls() 'Enable Controls EnableDisableControls(True) 'Set the focus txtCurrencyCode.Focus() Case "1" 'Search Button FormMode(1) 'Clear Controls ClearControls() 'Enable Controls EnableDisableControls(True) 'Set the Focus txtCurrencyCode.Focus() Case "2" 'Edit Button FormMode(3) 'Enable Controls EnableDisableControls(True) 'Disable the Primary key field txtCurrencyCode.Enabled = False 'Set the Focus txtCurrencyName.Focus() Case "3" 'Delete Button ' Call the Entity Layer objELCurrencies.CurrencyCode = txtCurrencyCode.Text 'Call Business Layer Update Method If objBLCurrencies.Delete(objELCurrencies) = True Then 'Display the Message to user Dim radalertscript As String = "<script language='javascript'>function f(){radalert('Record Deleted Sucessfully', 330, 100,'Currencies'); Sys.Application.remove_load(f);}; Sys.Application.add_load(f);</script>" Page.ClientScript.RegisterStartupScript(Me.[GetType](), "Deleteradalert", radalertscript) 'Set the Form mode to search FormMode(1) 'Clear Controls ClearControls() 'Enable Controls EnableDisableControls(True) 'Set the Focus txtCurrencyCode.Focus() Else End If Case "4" 'First Record Browse button 'Enable Controls EnableDisableControls(True) 'Intialise the DataSet dsBrowse = New DataSet() 'get the data dsBrowse = objDLCurrencies.GetAllData() 'Set the first record data txtCurrencyCode.Text = dsBrowse.Tables(0).Rows(0)(0).ToString() txtCurrencyName.Text = dsBrowse.Tables(0).Rows(0)(1).ToString() txtNumericCode.Text = dsBrowse.Tables(0).Rows(0)(2).ToString() 'Set the form mode FormMode(2) 'Disable the Controls EnableDisableControls(False) Case "5" 'Previous record Browse button 'Intialise the DataSet dsBrowse = New DataSet() 'get the data dsBrowse = objDLCurrencies.GetPreviousRecord(txtCurrencyCode.Text) txtCurrencyCode.Text = dsBrowse.Tables(0).Rows(dsBrowse.Tables(0).Rows.Count - 1)(0).ToString txtCurrencyName.Text = dsBrowse.Tables(0).Rows(dsBrowse.Tables(0).Rows.Count - 1)(1).ToString txtNumericCode.Text = dsBrowse.Tables(0).Rows(dsBrowse.Tables(0).Rows.Count - 1)(2).ToString 'Set the form mode FormMode(2) 'Disable the Controls EnableDisableControls(False) Case "6" 'Next record Browse button 'Intialise the DataSet dsBrowse = New DataSet() 'get data dsBrowse = objDLCurrencies.GetPreviousRecord(txtCurrencyCode.Text) txtCurrencyCode.Text = dsBrowse.Tables(0).Rows(dsBrowse.Tables(0).Rows.Count - 1)(0).ToString txtCurrencyName.Text = dsBrowse.Tables(0).Rows(dsBrowse.Tables(0).Rows.Count - 1)(1).ToString txtNumericCode.Text = dsBrowse.Tables(0).Rows(dsBrowse.Tables(0).Rows.Count - 1)(2).ToString 'Set the form mode FormMode(2) 'Disable the Controls EnableDisableControls(False) Case "7" 'Last record Browse button 'row Number Dim rowNum As Integer = 0 'Intialise the DataSet dsBrowse = New DataSet() 'get the data dsBrowse = objDLCurrencies.GetAllData() rowNum = dsBrowse.Tables(0).Rows.Count - 1 'Set the last record data txtCurrencyCode.Text = dsBrowse.Tables(0).Rows(rowNum)(0).ToString() txtCurrencyName.Text = dsBrowse.Tables(0).Rows(rowNum)(1).ToString() txtNumericCode.Text = dsBrowse.Tables(0).Rows(rowNum)(2).ToString() 'Set the form mode FormMode(2) 'Disable the Controls EnableDisableControls(False) Case "8" 'Save As 'Set the form mode to Add FormMode(0) 'Enable the Controls EnableDisableControls(True) 'Clear the Primary Key field and set focus txtCurrencyCode.Text = String.Empty txtCurrencyCode.Focus() End Select Catch ex As Exception End Try End Sub#End Region Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click Try Select Case btnAdd.Text Case "Add" 'Call the Entity Layer objELCurrencies.CurrencyCode = txtCurrencyCode.Text objELCurrencies.CurrencyName = txtCurrencyName.Text objELCurrencies.CurrencyInternationalCode = txtNumericCode.Text objELCurrencies.UserCode = "" objELCurrencies.URI = "" objELCurrencies.CreateDate = DateTime.Now objELCurrencies.UpdateDate = DateTime.Now 'Call Business Layer Create Method If objBLCurrencies.Create(objELCurrencies) = True Then 'Display the Message to user Dim radalertscript As String = "<script language='javascript'>function f(){radalert('Record Saved Sucessfully', 330, 100,'Currencies'); Sys.Application.remove_load(f);}; Sys.Application.add_load(f);</script>" Page.ClientScript.RegisterStartupScript(Me.[GetType](), "radalert", radalertscript) 'Clear the controls ClearControls() 'Set the form mode FormMode(0) 'set the form mode txtCurrencyCode.Focus() Else End If Case "Update" 'Call the Entity Layer objELCurrencies.CurrencyCode = txtCurrencyCode.Text objELCurrencies.CurrencyName = txtCurrencyName.Text objELCurrencies.CurrencyInternationalCode = txtNumericCode.Text objELCurrencies.UserCode = "" objELCurrencies.URI = "" objELCurrencies.CreateDate = DateTime.Now objELCurrencies.UpdateDate = DateTime.Now 'Call Business Layer Update Method If objBLCurrencies.Update(objELCurrencies) = True Then 'Display the Message to user Dim radalertscript As String = "<script language='javascript'>function f(){radalert('Record Updated Sucessfully', 330, 100,'Currencies'); Sys.Application.remove_load(f);}; Sys.Application.add_load(f);</script>" Page.ClientScript.RegisterStartupScript(Me.[GetType](), "Updateradalert", radalertscript) 'Set the Form Mode FormMode(2) 'Disable Controls EnableDisableControls(False) Else End If Case "Ok" Case "Search" If txtCurrencyCode.Text <> String.Empty Or txtCurrencyName.Text <> String.Empty Or txtNumericCode.Text <> String.Empty Then 'Intialise the DataSet dsBrowse = New DataSet() 'get the data dsBrowse = objDLCurrencies.SearchRecord(txtCurrencyCode.Text, txtCurrencyName.Text, txtNumericCode.Text) 'Set the first record data txtCurrencyCode.Text = dsBrowse.Tables(0).Rows(0)(0).ToString() txtCurrencyName.Text = dsBrowse.Tables(0).Rows(0)(1).ToString() txtNumericCode.Text = dsBrowse.Tables(0).Rows(0)(2).ToString() txtCurrencyCode.Enabled = False 'Set the form mode FormMode(2) 'Disable Controls EnableDisableControls(False) End If End Select Catch ex As Exception Finally End Try End SubEnd Class