[saoud2]

عزيزي 

هذا كود حدث الإختيار من كمبوبكس الداتاجريد من أساتذة المنتدى وستجد فيه مكان الاستعلام  

كود :

   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
           ' الاستعلام
           Dim v = combo.Text
           Dim da As New SqlDataAdapter("SELECT * FROM [table] WHERE [column]=@c", SqlConn)
           da.SelectCommand.Parameters.AddWithValue("@c", v)
           Dim dt As New DataTable
           If da.Fill(dt) > 0 Then
               DataGridView1.CurrentRow.Cells(0).Value = dt.Rows(0)("unitPrice")
           End If
       End If
   End Sub
   Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.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

قم بتعديل ما يلزمك