pero ahora me surgio una duda.
Tengo un radioboton ke ke actualizara los datos de un combo segun el valor ke seleccionaron del radioboton
Pero resulta al hacer el cambiode indice ke no actualiza nada al combo, es decir si hace su evento pero no refresca nada en la pagina se qeuda con los mismos datos
Este es mi aspx
Código:
y este mi codigo vb, y bueno mi radio boton si hace lo ke tiene ke hacer ( optInsPla_SelectedIndexChanged )pero si vemos el resultado en la pagina nunca refresca el combo.<%@ Register TagPrefix="anthem" Namespace="Anthem" Assembly="Anthem" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebIndPri.aspx.vb" Inherits="Prdi2008.WebIndPri" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title></title>
<meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body leftMargin="0" topMargin="0" scroll="no" MS_POSITIONING="GridLayout">
<form id="FrmInsPla" method="post" runat="server">
<TABLE id="Table3" height="450" cellSpacing="0" cellPadding="0" width="770" align="center"
border="0">
<TR>
<TD>
<TABLE id="Table1" style="BACKGROUND-POSITION: center top; BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(Img/instrumentos_de_planeacion_p.JPG); BACKGROUND-REPEAT: no-repeat"
height="100%" cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
<TR>
<TD colSpan="2">
<asp:label id="LblMsg" runat="server" ForeColor="Olive" Font-Names="Verdana" Font-Size="8pt"
Font-Bold="True"></asp:label></TD>
</TR>
<TR>
<TD vAlign="top" align="left" colSpan="2">
<asp:label id="LblArea" runat="server" ForeColor="Gray" Font-Names="Verdana" Font-Size="8pt"
Font-Bold="True"></asp:label> </TD>
</TR>
<TR>
<TD> </TD>
<TD vAlign="top" align="center" height="35">
menu instrumentos de planeacion</TD>
</TR>
<TR>
<TD vAlign="top" align="center" width="125">
menu lateral
</TD>
<TD vAlign="top" align="center">
<anthem:radiobuttonlist id="optInsPla" runat="server" AutoCallBack="True" OnSelectedIndexChanged="optInsPla_SelectedIndexChanged"
TextDuringCallBack="Espera..." Font-Names="Verdana" Font-Size="12px" Height="8px" Width="455px" RepeatDirection="Horizontal"></anthem:radiobuttonlist>
<br>
<anthem:dropdownlist id="cmbOpc" runat="server" AutoCallBack="True" OnSelectedIndexChanged="cmbOpc_SelectedIndexChanged"></anthem:dropdownlist>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</form>
</body>
</HTML>
Código:
Alguien tiene alguna idea Imports Prdi2008.Indicador
Imports Prdi2008.ClArea
Public Class WebIndPri
Inherits System.Web.UI.Page
Private Ind As New Indicador
Private ARea As New ClArea
Protected WithEvents optInsPla As Anthem.RadioButtonList
Protected WithEvents cmbOpc As Anthem.DropDownList
'Protected WithEvents optInsPla As System.Web.UI.WebControls.RadioButtonList
'Protected WithEvents cmbOpc As System.Web.UI.WebControls.DropDownList
#Region " Código generado por el Diseñador de Web Forms "
'El Diseñador de Web Forms requiere esta llamada.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents LblMsg As System.Web.UI.WebControls.Label
Protected WithEvents LblArea As System.Web.UI.WebControls.Label
'NOTA: el Diseñador de Web Forms necesita la siguiente declaración del marcador de posición.
'No se debe eliminar o mover.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método
'No la modifique con el editor de código.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
'HACK
Session("ClaveArea") = "B0103000000"
Dim sArea As String = ""
sArea = CStr(Session("ClaveArea"))
ARea.GetDatosArea(sArea)
LblArea.Text = ARea.Nombre
With optInsPla
.Items.Insert(0, New ListItem("Estratégicos", "1")) 'documentos pdf para poder ver
.Items.Insert(1, New ListItem("Visión 2009", "2")) 'para ondas ahora si referentes a indicadores
.SelectedValue = 1
End With
optInsPla_SelectedIndexChanged(sender, e)
End If
End Sub
'La Opción principal
Public Sub optInsPla_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim iOpc As Integer
iOpc = CInt(optInsPla.SelectedValue)
If iOpc = 1 Then
With Me.cmbOpc
'.Items.Clear()
.Visible = True
.Items.Clear()
.Items.Insert(0, New ListItem("Selecciona una opción", "0"))
.Items.Insert(1, New ListItem("2005", "2005"))
.Items.Insert(2, New ListItem("2006", "2006"))
.Items.Insert(3, New ListItem("2007", "2007"))
End With
Else
With Me.cmbOpc
'.Items.Clear()
.Visible = True
.Items.Clear()
'Solo las areas hijas pueden registrar
Dim iAreaHija As Integer
Dim sArea As String = ""
sArea = CStr(Session("ClaveArea"))
If sArea <> Nothing And sArea <> "" Then
iAreaHija = CInt(sArea.Substring(4))
If iAreaHija > 0 Then
.Items.Insert(0, New ListItem("Selecciona una opción", "0"))
.Items.Insert(1, New ListItem("Registro", "1"))
.Items.Insert(2, New ListItem("Reporte", "2"))
'.Items.Insert(3, New ListItem("Graficas", "3"))
Else
.Items.Insert(0, New ListItem("Selecciona una opción", "0"))
.Items.Insert(1, New ListItem("Reporte", "2"))
'.Items.Insert(2, New ListItem("Graficas", "3"))
End If
End If
End With
End If
End Sub
'La subOpción
Public Sub cmbOpc_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim iOpcPri, iOpcPdf As Integer
iOpcPri = CInt(optInsPla.SelectedValue)
iOpcPdf = CInt(cmbOpc.SelectedValue)
Select Case iOpcPri
Case 0
Exit Sub
Case 1
Dim WebPag As String
WebPag = "Doc_Con/PDF_ind_est/ind_est_" & iOpcPdf & ".pdf"
'Abrimos una popup para mostrar el PDF
Dim Clientscript As String = ""
Clientscript = "<script>"
Clientscript += "window.open('" & WebPag & " ', '" & iOpcPdf & "' , 'height=800,width=800, toolbar=1, menubar=1, scrollbars=1, resizable=1,location=0, directories=1, status=1,top=0,left=112')"
Clientscript += "</script>"
If Not IsStartupScriptRegistered("WOpen") Then
RegisterStartupScript("WOpen", Clientscript)
End If
Case 2
Select Case iOpcPdf
Case 1 'Registro de indicadores
Response.Redirect("WebIndReg.aspx")
Case 2
'Abrimos una popup para mostrar el reporte
Dim Clientscript As String = ""
Clientscript = "<script>"
Clientscript += "window.open('WebIndRpt.aspx', 'WebIndRpt')" ', 'height=800,width=800, toolbar=1, menubar=1, scrollbars=1, resizable=1,location=0, directories=1, status=1,top=0,left=112')"
Clientscript += "</script>"
If Not IsStartupScriptRegistered("WOpen") Then
RegisterStartupScript("WOpen", Clientscript)
End If
Case 3
End Select
'2)visión 2009 (pantalla de registro y reporte)
' Al elegir la opción de pantalla de registro se desplegará un catalogo de indicadores.
End Select
End Sub
End Class
