[يونس علي]

بارك الله فيك اخي لقد استعملت الكود وقد اتى نتيجة رائعة 

وللافادة الكود كامل بعد تعديل ما يلزمني 

كود :

   Private Sub editingComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim combo As ComboBox = TryCast(sender, ComboBox)
       If combo.Text IsNot Nothing Then
           ' الاستعلام
           If combo.SelectedIndex = 0 Then
               Dim v1 = combo.Text
               Dim da1 As New SqlClient.SqlDataAdapter("select * from TBLItems WHERE ItemsUnit1=@c1", SqlConn)
               da1.SelectCommand.Parameters.AddWithValue("@c1", v1)
               Dim dt1 As New DataTable
               If da1.Fill(dt1) > 0 Then
                   DGVK.CurrentRow.Cells(3).Value = dt1.Rows(0)("ItemsUnit1QTY")
                   DGVK.CurrentRow.Cells(4).Value = dt1.Rows(0)("ItemsUnit1PRICE")
               End If
           End If
           If combo.SelectedIndex = 1 Then
               Dim v1 = combo.Text
               Dim da1 As New SqlClient.SqlDataAdapter("select * from TBLItems WHERE ItemsUnit2=@c1", SqlConn)
               da1.SelectCommand.Parameters.AddWithValue("@c1", v1)
               Dim dt1 As New DataTable
               If da1.Fill(dt1) > 0 Then
                   DGVK.CurrentRow.Cells(3).Value = dt1.Rows(0)("ItemsUnit2QTY")
                   DGVK.CurrentRow.Cells(4).Value = dt1.Rows(0)("ItemsUnit2PRICE")
               End If
           End If
           If combo.SelectedIndex = 2 Then
               Dim v1 = combo.Text
               Dim da1 As New SqlClient.SqlDataAdapter("select * from TBLItems WHERE ItemsUnit3=@c1", SqlConn)
               da1.SelectCommand.Parameters.AddWithValue("@c1", v1)
               Dim dt1 As New DataTable
               If da1.Fill(dt1) > 0 Then
                   DGVK.CurrentRow.Cells(3).Value = dt1.Rows(0)("ItemsUnit3QTY")
                   DGVK.CurrentRow.Cells(4).Value = dt1.Rows(0)("ItemsUnit3PRICE")
               End If
           End If
       End If
   End Sub
   Private Sub DGVK_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles DGVK.EditingControlShowing
       Dim c = TryCast(e.Control, ComboBox)
       If c IsNot Nothing Then
           RemoveHandler c.SelectedIndexChanged, New EventHandler(AddressOf editingComboBox_SelectedIndexChanged)
           AddHandler c.SelectedIndexChanged, New EventHandler(AddressOf editingComboBox_SelectedIndexChanged)
       End If
   End Sub