如何在VB中设置下拉列表的默认值答案

【问题标题】：how to set default value of a dropdownlist in VB如何在VB中设置下拉列表的默认值
【发布时间】：2014-07-19 05:28:03
【问题描述】：

我正在尝试在 vb 中设置下拉列表 (UpdateDistributor) 的默认值。

UpdateDistributor.DataValueField 似乎不起作用。下拉列表保持空白

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

    If Not IsPostBack Then
       Dim TitleSearch As String = "Select distrubtorcode from titles where isbn = 986765654"
       Dim table As DataTable = Database.SelectRows(TitleSearch)

       If table.Rows.Count > 0 Then
            UpdateDistributor.DataValueField = table.rows(0)("distrubtorcode")
       End if 

    End if 

    Dim SQLUpdateDistrubtor =  "Select distinct distrubtorcode from titles "
    MyData = Database.SelectRows(SQLUpdateDistrubtor)
    For Each Row As DataRow In MyData.Rows
        UpdateDistributor.Items.Add(New ListItem((Row)("companyname"), (Row)("companyname")))
    Next

End Sub

【问题讨论】：

所以你的ValueField 你想成为distrubtorcode 并且在组合框中看到的应该是companyname ？
我很抱歉 - 只有经销商代码。刚刚编辑它。我希望获取特定 isbn 的分销商代码以显示为值字段，并且在组合框中看到的是数据库中不同分销商代码的列表。
组合框中的列表工作正常 - 我在设置默认值时遇到问题。我知道使用文本框可以说 Textbox.Text = "test" 但不确定如何使用下拉列表。
值字段不会显示在组合框中，DisplayMember / DataTextFields 会。 See Here
Combobox.Text = "YourText"。您还可以将 SelectedIndex 更改为 0（或您想要显示的任何其他索引）

标签： asp.net vb.net drop-down-menu

【解决方案1】：

最后这就是我想出的——我想我之前也把信息放在了错误的位置！ Combobox.Text = "yourText" 工作！ -ty

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

   Dim TitleSearch As String = "Select distrubtorcode from titles where isbn = 986765654"

   Dim table As DataTable = Database.SelectRows(TitleSearch)

   Dim SQLUpdateDistrubtor =  "Select distinct distrubtorcode from titles "
   MyData = Database.SelectRows(SQLUpdateDistrubtor)
   For Each Row As DataRow In MyData.Rows
      UpdateDistributor.Items.Add(New ListItem((Row)("companyname"), (Row)("companyname")))
   Next

     If table.Rows.Count > 0 Then
        UpdateDistributor.text = table.rows(0)("distrubtorcode")
    End if 
End Sub

【讨论】：