为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

VB上拉列表框的选择项改变事件

2017-11-16 3页 doc 15KB 25阅读

用户头像

is_682974

暂无简介

举报
VB上拉列表框的选择项改变事件VB上拉列表框的选择项改变事件 VB下拉列表框的选择项改变事件 以下是我的某个窗体的加载和下拉框列表选择项改变事件 不写下拉框列表选择项改变事件时一切正常,省份正确读取并绑定到下拉框列表中,但 写了下拉框列表选择项改变事件后,就报错了,错误:从类型“DataRowView”到类型 “Integer”的转换无效。对应红色字体 Private Sub ProviceCityForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim ...
VB上拉列表框的选择项改变事件
VB上拉列框的选择项改变事件 VB下拉列表框的选择项改变事件 以下是我的某个窗体的加载和下拉框列表选择项改变事件 不写下拉框列表选择项改变事件时一切正常,省份正确读取并绑定到下拉框列表中,但 写了下拉框列表选择项改变事件后,就报错了,错误:从类型“DataRowView”到类型 “Integer”的转换无效。对应红色字体 Private Sub ProviceCityForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim conStr As String conStr = Data Source=.;Initial Catalog=MyTestDB;Integrated Security=True Dim con As New SqlConnection(conStr) '查询所有省份 Dim sql As String sql = SELECT * FROM [MyTestDB].[dbo].[provinceCity] WHERE ParentId = 0 Dim adapter As New SqlDataAdapter(sql, con) Dim ds As New DataSet() adapter.Fill(ds) '绑定所有省份下拉列表框 Me.cboProvice.DataSource = ds.Tables(0) Me.cboProvice.DisplayMember = Name Me.cboProvice.ValueMember = ID End Sub Private Sub cboProvice_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboProvice.SelectedIndexChanged Dim conStr As String conStr = Data Source=.;Initial Catalog=MyTestDB;Integrated Security=True Dim con As New SqlConnection(conStr) '查询所有省份 Dim pId As Integer pId = Me.cboProvice.SelectedValue Dim sql As String sql = SELECT * FROM [MyTestDB].[dbo].[provinceCity] WHERE ParentId = pId Dim adapter As New SqlDataAdapter(sql, con) Dim ds As New DataSet() adapter.Fill(ds) '绑定所有省份下拉列表框 Me.cboCity.DataSource = ds.Tables(0) Me.cboCity.DisplayMember = Name Me.cboCity.ValueMember = ID End Sub ------解决-------------------------------------------------------- Me.cboProvice.SelectedValue,这是你下拉框中选中的数据吧,是数字吗, ------解决方案-------------------------------------------------------- 改为Me.cboProvice.text ------解决方案-------------------------------------------------------- 下拉框用绑定的话读出来的项类型是DataRowView. VB.NET code Dim pId As Integer Dim rv As DataRowView rv = Me.cboProvice.SelectedValue pId = rv( 列名 ) ------解决方案-------------------------------------------------------- 在load的事件中,开始的地方删除cboProvice_SelectedIndexChanged的监听,在结束处在 添加上
/
本文档为【VB上拉列表框的选择项改变事件】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索