Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 从组合框中选择值并在文本框中显示相应的值_Vb.net_Combobox_Textbox - Fatal编程技术网

Vb.net 从组合框中选择值并在文本框中显示相应的值

Vb.net 从组合框中选择值并在文本框中显示相应的值,vb.net,combobox,textbox,Vb.net,Combobox,Textbox,我有一个程序,在其中,我必须在组合框中选择一个值,并自动将其对应的值显示到文本框中 程序如下所示: 我将在combobox='skucbo'中选择一个产品ID,然后产品描述将自动显示在textbox='DescriptionText'中 这是我的代码: Private Sub descriptiontxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descriptiontxt.T

我有一个程序,在其中,我必须在组合框中选择一个值,并自动将其对应的值显示到文本框中

程序如下所示: 我将在combobox='skucbo'中选择一个产品ID,然后产品描述将自动显示在textbox='DescriptionText'中

这是我的代码:

Private Sub descriptiontxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descriptiontxt.TextChanged

    Dim sku As String = skucbo.SelectedValue.ToString
    Dim dr As SqlDataReader
    connect()
    cmd = New SqlCommand
    cmd.CommandType = CommandType.Text
    cmd.Connection = con
    con.Open()
    cmd.CommandText = "SELECT description FROM tbl_sku WHERE skucbo = @sku"
    dr = cmd.ExecuteReader
    con.Close()
End Sub

期待你的回应。谢谢

您还需要为组合框更改SelectedIndex。
在SelectedIndexChanged中,将文本框设置为combobox所选项目。

“descriptionText.Text=skucbo.SelectedItem”
那么这里的问题是什么呢?我想你希望你的代码在“comboBox\u changed”事件中。当组合更改时,您可以更改文本。此外,您应该加载描述,而不是每次组合更改时都点击数据库(假设您的列表相对较小)。
Private Sub skucbo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles skucbo.SelectedIndexChanged
    descriptiontxt.Text = skucbo.SelectedItem
End Sub