اخوي ابوعمر انا ارفقت صورة فيها طريقة الكود الي انا استخدمه ارجو منك الاطلاع
وكيف اعدل عليه
هذا الكود
مع العلم ان حقل الرقم هوا = Doc
وحقل الأسم = Name
Private Sub CellTextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Me.DataGridView1.CurrentCell.ColumnIndex = 0 Then
DA = New SqlClient.SqlDataAdapter("SELECT [Name] FROM [Doctor] WHERE [Doc] = ?", DB)
DA.Fill(DT)
cmd.Parameters.AddWithValue("@id", Val(CType(sender, DataGridViewTextBoxEditingControl).Text))
Me.DataGridView1.Item(1, Me.DataGridView1.CurrentCell.RowIndex).Value = cmd.ExecuteScalar
End Using
End If
End Sub
وكيف اعدل عليه
هذا الكود
مع العلم ان حقل الرقم هوا = Doc
وحقل الأسم = Name
Private Sub CellTextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Me.DataGridView1.CurrentCell.ColumnIndex = 0 Then
DA = New SqlClient.SqlDataAdapter("SELECT [Name] FROM [Doctor] WHERE [Doc] = ?", DB)
DA.Fill(DT)
cmd.Parameters.AddWithValue("@id", Val(CType(sender, DataGridViewTextBoxEditingControl).Text))
Me.DataGridView1.Item(1, Me.DataGridView1.CurrentCell.RowIndex).Value = cmd.ExecuteScalar
End Using
End If
End Sub

