[danti]

(11-01-23, 06:06 AM)Taha Okla كتب : عندما تريد قيمة من خلية بعينها، استخدم الكود التالي في حدث (CellEnter) فإنه يستخرج نصها بمجرد الوقوف عليها بالماوس أو بالكيبورد :

كود :

Private Sub DataGridView1_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEnter
   Dim strW As String = DataGridView1.CurrentCell.Value
   Dim s() As String = Split(strW, " ")

   If s.Length < 2 Then Exit Sub

   TextBox1.Text = s(0) + " " + s(1)
End Sub

وبإمكانك وضعه في الحدث (CellClick) اذا أردت أن لا يعطي قيمة إلا إذا عينت الخلية بالماوس فقط.

---

أما إذا أردت أن يعطي فقط قيمة خلية من عمود معين ولا تتغير إلا إذا تغير السطر.. فاستخدم الكود التالي :

كود :

Private Sub DataGridView1_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEnter
   Dim strW As String = DataGridView1(1, DataGridView1.CurrentCell.RowIndex).Value

   Dim s() As String = Split(strW, " ")

   If s.Length < 2 Then Exit Sub

   TextBox1.Text = s(0) + " " + s(1)
End Sub

فعلاً هذا ما أقصد.. ما شاء الله عليك..

الكود في غاية الاتقان وبأكثر من طريقة...

زادك الله علماً، وجزاك الله خيراً، ورحم الله والديك..

أعتقد أن الكثير سيستفيد من هذا الكود كما استفدت أنا.