2015-06-19 36 views
0

我需要你的帮助。我想知道为什么当运行ScriptManager.RegisterClientScriptBlock时,我的页面控件消失,并且只有在确认Ok后才会重新出现?ScriptManager.RegisterClientScriptBlock运行时隐藏的控件

Protected Sub ddlDeckFittingCategory_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ddlDeckFittingCategory.SelectedIndexChanged 

    If txbNumberofColumns.Text = "" Or Me.txbShellDiameter.Text = "" Then 

     ScriptManager.RegisterClientScriptBlock(Me.Page, Page.GetType, "alert", "alert('Informe o valor do Diâmetro do Casco (m)!');", True) 
     ddlDeckFittingCategory.SelectedValue = -1 
    Else 


     If Request("TipoTela") = 1 Then 


      If ddlDeckFittingCategory.SelectedValue = "Typical" Then 
       objFinttings_temp.IncluirFittingsTempTQIFLTTipico(Session("cod_usuario_usu")) 
       'objFinttings_temp.AtualizaFittingsTempColumnWell_24_in_Diam(CType(txbNumberofColumns.Text, Double)) 
       objFinttings_temp.AtualizaFittingsTempColumnWell_24_in_Diam(txbNumberofColumns.Text) 
       tbFittingsFonte.Visible = True 
       tbFittingsFonte.HeaderText = "" 
       TcPrincipal.ActiveTabIndex = 6 

       Dim dvConsultarCodFonteEmFittingsTempPorUsuario As DataView = objFinttings_temp.ConsultarCodFonteEmFittingsTempPorUsuario(Session("cod_usuario_usu")) 
       Session("cod_fonte_fon") = dvConsultarCodFonteEmFittingsTempPorUsuario.Table.Rows(0)("cod_fonte_fon") 
       Session("ddlDeckFittingCategory") = ddlDeckFittingCategory.SelectedValue 
      Else 
       objFinttings_temp.IncluirFittingsTQIFLTDetalhado(0) 
       tbFittings.Visible = True 
       tbFittings.HeaderText = "" 
       TcPrincipal.ActiveTabIndex = 6 

      End If 
      GrvFittingsFonte.DataBind() 

     Else 



      If ddlDeckFittingCategory.SelectedValue = "Typical" Then 
       objFinttings_temp.IncluirFittingsTempTQIFLTTipico(Session("cod_usuario_usu")) 
       'objFinttings_temp.AtualizaFittingsTempColumnWell_24_in_Diam(CType(txbNumberofColumns.Text, Double)) 
       objFinttings_temp.AtualizaFittingsTempColumnWell_24_in_Diam(txbNumberofColumns.Text) 
       tbFittingsFonte.Visible = True 
       tbFittingsFonte.HeaderText = "" 
       TcPrincipal.ActiveTabIndex = 6 

      Else 
       objFinttings_temp.IncluirFittingsTQIFLTDetalhado(Session("cod_fonte_fon")) 
       tbFittings.Visible = True 
       tbFittings.HeaderText = "" 
       TcPrincipal.ActiveTabIndex = 6 

      End If 
      GrvFittingsFonte.DataBind() 

      If ddlSelfSupportingRoof.SelectedValue = 1 Or ddlSelfSupportingRoof.SelectedValue = "-1" Then 
       txbNumberofColumns.Enabled = False 
       rvNumColuna.Visible = False 
       ddlEffectiveColumnDiameter.Enabled = False 
       rvDiametroEfetivoColuna.Visible = False 
      Else 
       txbNumberofColumns.Enabled = True 
       rvNumColuna.Visible = True 
       ddlEffectiveColumnDiameter.Enabled = True 
       rvDiametroEfetivoColuna.Visible = True 
      End If 
     End If 
    End If 
End Sub 
enter code here 
+0

'RegisterClientScriptBlock'在控件在浏览器中呈现之前运行。通常,您只需在加载控件时添加必须使用的脚本块/函数。所以你可以使用在加载文档时触发的'RegisterStartupScript'。 –

回答

0

使用Page.ClientScript.RegisterStartupScript()

它会在页面加载后运行。