[aftfm]

كود ارسال البيانات الى القريد
لكن لا تزال المشكلة في العمود الثاني لم تتم

كود :

If Con.State = ConnectionState.Open Then Con.Close()
        Con.Open()
        Dim DataSet2 As New DataSet
        DataSet2.Clear()
        Me.DataGridView1.Rows.Clear()
        Using MYDataAdapter As New OleDbDataAdapter("SELECT E_Type FROM tbl1 Where E_Name like '" & Me.DataGridView1.Columns(0).HeaderText & "'", Con)
            Call MYDataAdapter.Fill(DataSet2, "E_TypeTable")
            For Each MYRow As DataRow In DataSet2.Tables("E_TypeTable").Rows
                Dim a As String = MYRow.Item("E_Type")
                ' Me.DataGridView1.Rows.Add(a.ToString)
                Me.DataGridView1.Rows.Add(Me.DataGridView1.Rows(0).Cells(0).Value, a.ToString)
            Next MYRow
        End Using

يخونا حد يقول حاجة
ولا هو مثالي مش واضح