如何解决如何获取DropDownList从TextBox复制数据?
当前在我的Web表单中,我有一个级联的下拉列表,但是现在我只关注第一个下拉列表。
这是加载列表的代码。
Private Sub FillLine() ' load 1st dropdown data
Dim dt As New DataTable
Dim strsql = "select distinct level1_id,[LCODE1]+ ' | '+[LNAME1] as [LCODE1]" _
& " FROM [sqlIOT].[dbo].[ZVIEW_MCM_LEVEL_LOOKUP]"
Using conn As New sqlConnection(ConStr),cmd As New sqlCommand(strsql,conn)
conn.open()
dt.Load(cmd.ExecuteReader)
End Using
If dt.Rows.Count > 0 Then
line.DataSource = dt
line.DataTextField = "LCODE1"
line.DataValueField = "level1_id"
line.DataBind()
line.Items.Insert(0,"")
End If
End Sub
这是我提取的数据的外观的直观表示。
| level1_id | LCODE1 |
-----------------------------
| 1 | A01 | Line 1 |
我的计划是首先在一个不可见的文本框中加载该值,并使用页面加载事件指示下拉列表基于该文本框选择相同的数据。
'load textBox with query string info
Sub loadFrmQuery()
Dim LID As String = Request.QueryString("LID")
Dim cmd As New sqlCommand("SELECT level1_id " _
& ",level2_id " _
& ",level3_id " _
& "FROM [sqlIOT].[dbo].[ZVIEW_MCM_LEVEL_LOOKUP] " _
& "where [LEVEL3_ID] = '" & LID & "'",conn)
conn.open()
Dim rdr As sqlDataReader = cmd.ExecuteReader
While rdr.Read
line_text.Text = rdr("level1_id")
process_text.Text = rdr("level2_id")
equip_text.Text = rdr("level3_id")
End While
conn.Close()
End Sub
'page load event
Protected Sub Page_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load
If Session("EmpID") Is nothing Then
Response.Redirect("~/Login.aspx")
Else
If Not IsPostBack Then 'whenever hv dropdownlist,need to have this in load sub,or else won't get ddl data.
FillLine()
loadFrmQuery()
line.DataValueField = line_text.Text
End If
End If
End Sub
但是在测试期间,下拉列表不会加载数据。我尝试调出下拉列表的DataTextField和DataValueField,但仍然没有响应。在这种情况下我该怎么办?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。