加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

vb.net 实现dropdownlist二级无刷新联动~!

发布时间:2020-12-16 23:36:20 所属栏目:大数据 来源:网络整理
导读:说说vb.net ajaxpro 实现dropdownlist二级无刷新联动~! Html写法: div class ="div_RSL" asp:DropDownList ID ="DropDownList1" runat ="server" DataSourceID ="proID" DataTextField ="proName" AutoPostBack="false" DataValueField ="proID" / asp:Dro
说说vb.net ajaxpro 实现dropdownlist二级无刷新联动~!
Html写法:
< div class ="div_RSL" >
< asp:DropDownList ID ="DropDownList1" runat ="server" DataSourceID ="proID" DataTextField ="proName"AutoPostBack="false" DataValueField ="proID" >
</asp:DropDownList>
< asp:SqlDataSource ID ="proID" runat ="server" ConnectionString="<%$ ConnectionStrings:opperajaxConnectionString % >"SelectCommand="SELECT [proID],[proName] FROM [TB_province] ORDER BY [proID]"> </asp:SqlDataSource>
< asp:DropDownList ID ="DropDownList2" runat ="server" >
</asp:DropDownList>
</div>
这里dropdownlist1是服务器控件绑定,很方便~!
.写法:
function ShowCity(id)
{
var res= Other_Register2.GetCity(id).value;
var drop = document.getElementById( "<%=DropDownList2.UniqueID %>");
drop.length=0;
for( var i=0;i<res.Rows.length;i++)
{
drop.options.add( new Option(res.Rows[i].TB_cityName,res.Rows[i].TB_cityID));
}
}
alert(res)将返回一个[object object]类型
alert(res.rows)将返回一个object类型
alert(res.rows[0].value)将返回一个[object object]类型
如果返回null类型,接收不到datatable数据,则可能是你的ajaxpro.2.dll并不支持datatable输出,建议你下载文章末尾ajaxpro.2.dll附件~!
vb.net写法:
Sub Page_Load() Sub Page_Load( ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
DropDownList1.Attributes( "onchange") = "ShowCity(this.options[selectedIndex].value)"
End If
AjaxPro.Utility.RegisterTypeForAjax(GetType(Other_Register2))
End Sub

Function GetCity() Function GetCity( ByVal sproid) As DataTable
Dim sqlconnection As New SqlConnection(ShareFunction.GetDBConnectionString())
sqlconnection.Open()
Dim sql As String = "select TB_cityID,TB_cityName from TB_city where proID=" & ShareFunction.SafeRequest(sproid,1) & ""
Dim dataada As New SqlDataAdapter(sql,sqlconnection)
Dim dt As New DataTable
dataada.Fill(dt)
Return dt
End Function
这里使用dataadapter对象将查询数据存入datatable中~!

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读