现在的位置: 首页 > 综合 > 正文

vb.net的下拉框联动无刷新

2014年01月25日 ⁄ 综合 ⁄ 共 1003字 ⁄ 字号 评论关闭

    Protected dtc As DataTable

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        dtc = GetTable("select * from city")
     
        DropDownList1.Attributes("onchange") = "SCity(this.value)" 

    <script type=text/javascript>
        var citys 
= new Array();
            
<%
        
for i as Integer=0 to dtc.Rows.Count-1
        
%>
        citys[
<%=i%>= new Array("<%=Convert.ToString(dtc.Rows(i)("proid"))%>","<%=Convert.ToString(dtc.Rows(i)("names"))%>","<%=Convert.ToString(dtc.Rows(i)("id"))%>");
            
<%
        next
            
%>
            function SCity(obj)
            {
            document.getElementById(
"DropDownList2").length=0;
                
for(var i=0;i<citys.length;i++)
                {
                    
if(obj==citys[i][0])
                    {
                      document.getElementById(
"DropDownList2").options.add(new Option(citys[i][1],citys[i][2]))
                    }
                }
            }
        
</script>

抱歉!评论已关闭.