Question

vb中如何用ComboBOX控件显示DataGridView中的一列； 选中ComboBOX下拉表中的选项，textbox显示对应值

vb中如何用ComboBOX控件显示DataGridView中的一列，如图中F1列；选中ComboBOX下拉表中的选项，在旁边的textbox显示对应值，如选中as出现F3列中的1

Answer 1

Button2的Click事件代码，目的，把DataGridView1第一列的数据添到ComboBox里面：

‍

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For i = 1 To DataGridView1.RowCount - 1
            ComboBox1.Items.Add(DataGridView1.Item(0, i).Value)
        Next
    End Sub

ComboBox的代码，目的：根据选择不同，改变TextBox文本显示

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim k As Integer
        k = ComboBox1.SelectedIndex
        If k < 0 Then Exit Sub

        TextBox1.Text = DataGridView1.Item(2, k + 1).Value
    End Sub

PS：ComboBox的选择项item从第0开始，DataGridView1的第0行为Head，你要的有效数据从第1开始。示例，如图

追问

运行提示有错误应该怎么办？
http://pan.baidu.com/s/1c2rDEH6

追答

你看你代码里写的button3的代码，你是将DataGrid1的第2列添加到comboBox1里，运行了下，你的xls文件加载进来时，这一列刚好有空值，所以你的ComboBox1.Items.Add(DataGridView1.Item(1, i).Value)这句会出错。如果假设你这列是一列不为空的数据，你可以换组测试数据。再是周全的办法应该是添加前先判定是否为空。

PS：前面回答已经提示你了，DataGridView1的第0行为Head，同理，按照你开始的提问，要添加F1列(第一列为0)的数据，你应该在上面那句中写：ComboBox.......(....item(0,i)).value