Question

我是视觉工作室的新手。我有2个表格下拉cb_CBOX1＆amp;下拉列表cb_CBOX2。我希望用户将数据添加到cb_CBOX1并在cb_CBOX1下拉列表中按字母顺序插入数据，并在cb_CBOX2下拉列表中按字母顺序插入。

我正在尝试使用以下声明。 TIA

COMMITID=`docker exec -it ${NAME} bash -c 'cat /usr/src/app/_api/sync-mongo.commit'`

2017-11-07更新：

我有2个表格都有组合框和下拉列表。我希望用户将数据插入到cb_CBOX1并将数据按字母顺序添加到cb_CBOX1下拉列表中，并按字母顺序添加到cb_CBOX2下拉列表中。当用户在cb_CBOX1中输入数据时，他们会点击button1来调用添加功能。

我的代码：

cb_CBOX2.Items.Add(cb_CBOX1.Text)

Answer 1

听起来你希望能够将数据添加到列表中，无论用户输入的是combobox1，它都会出现在另一个窗口的combobox2上吗？

我建议将组合框绑定到列表，然后将两个组合框的项目源设置为此列表。

创建列表，并在类中引用它，以便您可以从其他窗口访问它...

Dim comboboxitemlist As New List(Of String)

将您的清单绑定到CB2 ......

cb_CBOX2.itemssource = comboboxitemlist

在按钮中或者您要添加...

comboboxitemlist.add(cb_cbox1.text)

Answer 2

提取项目，添加新项目，排序，然后重新应用项目。 Linq很简单。

Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
    addToAndSortComboBox(cb_CBOX1, cb_CBOX1.Text)
    addToAndSortComboBox(cb_CBOX2, cb_CBOX1.Text)
    cb_CBOX1.Text = "" ' optional
End Sub

Private Sub addToAndSortComboBox(cb As ComboBox, value As String)
    Dim items = cb.Items.Cast(Of String).Concat({value}).OrderBy(Function(v) v).ToList()
    cb.Items.Clear()
    cb.Items.AddRange(items.ToArray())
End Sub

只是对设计的评论：它看起来并不直观。我觉得输入应该在TextBox中完成，ComboBoxes有ComboBox.DropDownStyle = DropDownList。

将数据插入下拉组合框

2 个答案: