高手帮忙，编译错误：BC30311:类型“String”的值无法转换为“System.Web.UI.WebControls.Label”

'此后台代码是用于Equipment/default.aspx查询使用的
'所要控制的控件有Label，ListBox，TextBox等等类型
'用到的表为：T_Equipment
'定义的类名：SerchEquip
'查询事件名称: Serch_Ok

Imports System
Imports System.Text
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OleDb

Public Class SerchEquip
Inherits System.Web.UI.Page

'提取web控件
protected JiDong_N As Label '提取机动代码名称
protected JiDong_D As ListBox '提取机动代码大类
protected JiDong_Z As ListBox '提取机动代码中类
protected JiDong_X As ListBox '提取机动代码小类
protected Equip_N  As TextBox '提取设备名称
protected Equip_M As TextBox '提取设备型号
protected ABC_Class As ListBox '提取ABC分类
protected M_Code As TextBox '提取自编号
protected Use_Unit As ListBox '提取使用单位_大类
protected Next_Unit As ListBox '提取使用单位_小类
protected Teac_Stu As ListBox '提取技术状况
protected Chan_Quan As ListBox '提取产权
protected Money As TextBox '提取原值
protected F_Code As TextBox '提取出厂编号
' protected F_Date As TextBox '提取出厂日期
protected Powers As TextBox '提取能耗
protected T_Power As TextBox '提取总功率
protected KaoHe As CheckBox '提取反馈信息
protected Equit As ListBox '日期大于、小于、等于... ...
protected F_DateY As TextBox  '年份输入框
protected F_DateM As ListBox  '月份选择列表

Dim SBGLConn AS OleDbConnection '创建连接对象
Dim SBGLAd AS OledbDataAdapter '创建数据收集对象
Dim SBGLDs AS New DataSet '创建数据集对象

Dim SQLStr_Class_D AS String
Dim SQLStr_Class_X AS String


'连接数据库
'连接方式：Provider=MSDAORA.1;Password=credit;User ID=system;Data Source=tuhasbk;Persist Security Info=True

Sub Page_Load(Sender AS Object, e AS EventArgs)

SQLStr_Class_D = "SELECT * FROM SBGL.T_Equip_Class Where Class_Level ='1' "

'创建连接
'首先是设备类型选择
SBGLConn = New OleDbConnection ( "Provider=MSDAORA.1;Password=credit;User ID=system;Data Source=tuhasbk;Persist Security Info=True")
SBGLAd = New OleDbDataAdapter ( SQLStr_Class_D, SBGLConn)
SBGLAd.Fill(SBGLDs,"Class_Name1") '创建临时数据集Log_Tab
JiDong_D.DataSource = SBGLDs.Tables("Class_Name1").DefaultView
JiDong_D.DataBind()

SBGLConn.Close()
End Sub

'=====事件D_ClassClick==选区中类机动代码=======
Sub D_ClassClick(Sender AS Object, e AS EventArgs)
'这里是选择机动代码的中类
Dim SQLStr_Class_Z AS String
Dim JiDong_ZC as String '设定被选中的变量名
Dim Z_Class As String '当机动代码大类编号截取后的值

JiDong_N = JiDong_D.SelectedItem.Text <====系统报错的地方

SQLStr_Class_Z = "SELECT * FROM SBGL.T_Equip_Class Where Class_Code like ' "& JiDong_ZC &" ' "
SBGLConn = New OleDbConnection ( "Provider=MSDAORA.1;Password=credit;User ID=system;Data Source=tuhasbk;Persist Security Info=True")
SBGLAd = New OleDbDataAdapter ( SQLStr_Class_Z,SBGLConn)
SBGLAd.Fill(SBGLDs,"Class_Name2")
JiDong_Z.DataSource = SBGLDs.Tables("Class_Name2").DefaultView
JiDong_Z.DataBind()

SBGLConn.Close()

End Sub

Sub Serch_Ok(Sender AS Object, e AS EventArgs)
End Sub


End Class

7 个解决方案