将文本框绑定到组合框项目

Question

我在数据表中有 2 列，并且都显示在组合框的下拉列表中（多列下拉列表）。现在我想在组合框中显示一列，在 texbox 中显示另一列（带有数据绑定）。代码有效，但有 1 个问题 - 我希望在表单打开时让我的 combobox.selectedIndex -1 和文本框为空。 Combobox 不是问题，但无法清除 Texbox 中的文本。这是我的代码：

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim SQL As String = "SELECT Name,Surname from MyTable"

        Dim dtb As New DataTable()
        dtb.Columns.Add("Name", System.Type.GetType("System.String"))
        dtb.Columns.Add("Surname", System.Type.GetType("System.String"))

        Using con As OracleConnection = New OracleConnection("Data Source=MyDB;User Id=Lucky;Password=MyPassword;")

            Try

                OraclePovezava.Open()

                Using dad As New OracleDataAdapter(SQL, con)
                    dad.Fill(dtb)

                End Using

                Combobox1.DataSource = dtb
                Combobox1.DisplayMember = "Surname"
                Combobox1.AutoCompleteMode = AutoCompleteMode.Suggest
                Combobox1.AutoCompleteSource = AutoCompleteSource.ListItems
                con.Close()

            Catch ex As Exception
                'MessageBox.Show(ex.Message)
            Finally
                con.Dispose()
            End Try

            TextBox1.DataBindings.Add("Text", dtb, "Name")
            Combobox1.SelectedIndex = -1

       End Using

    End Sub

如您所见，此代码位于表单的加载事件中。我也尝试过使用 If 语句在 Combobox.SelectedIndexChanged 事件中使用 Textbox 数据绑定，但它不起作用。

P.S.：我想要的输出是当用户从组合框中选择某些项目时，两个列值都显示在 texbox 和组合框中。您看到的代码可以正常工作，但文本框不能像表单加载时的组合框一样为空。

有什么建议吗？

Answer 1

您的源数据表中没有包含空白数据的记录，因此您的文本框始终绑定到包含数据的记录之一。我将使用简单的事件处理程序而不是数据绑定来实现这一点。

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    If ComboBox1.SelectedItem Is Nothing Then
        TextBox1.Text = ""
    Else
        TextBox1.Text = CStr(CType(ComboBox1.SelectedItem, DataRowView)("Name"))
    End If
End Sub