dataset获取combobox的值

[little_potato]

vb.net2003
我的代码：
Dim i As Integer
For i = 0 To AgfMachiningUnitFeatureNameTable.mydataset.Tables(0).Rows.Count - 1
Dim com As New ComboBox
com.Items.AddRange(New Object() {"a", "b", "c"})
Dim rectcom As Rectangle = DataGrid1.GetCellBounds(i, 3)
DataGrid1.Controls.Add(com)
Num_Num.Add(com)
com.Left = rectcom.Left
com.Top = rectcom.Top
com.Width = rectcom.Width
com.Height = rectcom.Height
com.Text = AgfMachiningUnitFeatureNameTable.mydataset.Tables(0).Rows(i).Item("XXX")
Next
datagrid中第四列显示combobox，现在改变combobox的值，如何将改变的值返回到dataset中，谢

[little_potato]

自己顶

[little_potato]

自己顶起来

[tjficcbw]

在combobox改变的事件中写入，如上所做的填充（再填充一次），不过地填充时，把第四列换成combobox的值就行了

[little_potato]

谢 我试试

[little_potato]

老哥，貌似不行啊，没反应。
我的代码：
Private Sub com_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim uu As Integer
If com.Text = "a" Then
uu = 100
End If
If com.Text = "b" Then
uu = 110
End If
If com.Text = "c" Then
uu = 200
End If

Dim i As Integer
For i = 0 To AgfMachiningUnitFeatureNameTable.mydataset.Tables(0).Rows.Count - 1
Dim com As New ComboBox
com.Items.AddRange(New Object() {"a", "b", "c"})
Dim rectcom As Rectangle = DataGrid1.GetCellBounds(i, 3)
DataGrid1.Controls.Add(com)
Num_Num.Add(com)
com.Left = rectcom.Left
com.Top = rectcom.Top
com.Width = rectcom.Width
com.Height = rectcom.Height
AgfMachiningUnitFeatureNameTable.mydataset.Tables(0).Rows(i).Item("XXX") = uu
Next
End Sub
您说的是这个意思吗？
这样写无法改变。

[tjficcbw]

拖一个按钮和一个DataGridView

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        DataGridView1.Rows(0).Cells(3).Value = 1
        DataGridView1.Rows(1).Cells(3).Value = 2
        DataGridView1.Rows(2).Cells(3).Value = 3
        DataGridView1.Rows(3).Cells(3).Value = 4
        DataGridView1.Rows(4).Cells(3).Value = 5
        DataGridView1.Rows(5).Cells(3).Value = 6
        DataGridView1.Rows(6).Cells(3).Value = 7

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.ColumnCount = 4

        ' Set the column header style.
        ' Set the column header names.
        DataGridView1.Columns(0).Name = "Recipe"
        DataGridView1.Columns(1).Name = "Category"
        DataGridView1.Columns(2).Name = "thirdColumnHeader"
        DataGridView1.Columns(3).Name = "Rating"

        ' Populate the rows.
        Dim row1 As String() = New String() _
            {"Meatloaf", "Main Dish", "boringMeatloaf", "boringMeatloafRanking"}
        Dim row2 As String() = New String() {"Key Lime Pie", "Dessert", "lime juice, evaporated milk", "****"}
        Dim row3 As String() = New String() _
            {"Orange-Salsa Pork Chops", "Main Dish", "pork chops, salsa, orange juice", "****"}
        Dim row4 As String() = New String() _
            {"Black Bean and Rice Salad", "Salad", "black beans, brown rice", "****"}
        Dim row5 As String() = New String() _
            {"Chocolate Cheesecake", "Dessert", "cream cheese", "***"}
        Dim row6 As String() = New String() {"Black Bean Dip", "Appetizer", "black beans, sour cream", "***"}
        Dim rows As Object() = New Object() {row1, row2, row3, row4, row5, row6}

        Dim rowArray As String()
        For Each rowArray In rows
            DataGridView1.Rows.Add(rowArray)
        Next

        'PostRowCreation()

        'shortMode = False
        'boringRecipe = True

    End Sub
End Class

[little_potato]

谢 我试试

[little_potato]

谢谢。我去试试。顺便问一下，为何我的VB.NET2003中，没有datagridview这个控件，在控件列表上右键添加，也没有datagridview，是不是要下载什么东西才可以，您上一段代码中，DataGridView1.Rows，Rows不能用在datagrid上。

[_NET2004]

在2003中是DataGrid，2005中为DataGridView