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

2012-08-02 10:01:15 2.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

智能车竞赛新手必看：单车定向组直线竞速与八字慢速实战技巧本文为智能车竞赛新手提供单车定向组直线竞速与八字慢速的实战技巧，涵盖赛道分析、动力调校、传感器配置等关键环节。通过真实案例和代码示例，详细讲解如何平衡速度与稳定性，帮助选手避免常见失误，提升比赛成绩。特别针对智能车竞赛中的直线竞速和八字慢速项目，提供从硬件选型到临场策略的全方位指导。阅读详情

以下是我的某个窗体的加载和下拉框列表选择项改变事件
不写下拉框列表选择项改变事件时一切正常，省份正确读取并绑定到下拉框列表中，但
写了下拉框列表选择项改变事件后，就报错了，错误：从类型“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

...全文