微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

如何获取DropDownList从TextBox复制数据?

如何解决如何获取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 |

我还希望基于URL查询字符串以正确的值自动加载下拉列表。

我的计划是首先在一个不可见的文本框中加载该值,并使用页面加载事件指示下拉列表基于该文本框选择相同的数据。

'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 举报,一经查实,本站将立刻删除。