[محمد كريّم]

(08-12-19, 12:07 AM)sofiane-phy كتب : بارك الله فيك أخي محمد كريّم نفس المشكل نعم يقفز الى السطر التالي لكن لا يأخذ قيم السطر و يوضعها في التكست بوكس تبقى علامات السطر السابق لاحظ الصورة

الخطأ كان في جزئية التنقل بين صفوف الداتاجريد ولم تذكر شيء بخصوص قراءة الخلايا إلى تكست بوكس

الأفضل استخدام حدث SelectionIndex_Changed 

ولكن إن أحببت فيمكن دمج الكود في نفس حدث زر الانتر


جرب هذا التعديل مع مراعاة تغيير اسماء التكس بوكس والاعمدة

كود :

Private Sub txt3_KeyDown(sender As Object, e As KeyEventArgs) Handles txt3.KeyDown
       
        If e.KeyData = Keys.Enter Then
            If Dgv1.CurrentCell IsNot Nothing Then

                Dim row As Integer = Dgv1.CurrentCell.RowIndex

                row += 1

                If row = Dgv1.RowCount Then
                    MessageBox.Show("انتهى حجز نقاط القسم", "تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Exit Sub
                End If
              
  Dgv1.CurrentCell = Dgv1.Rows(row).Cells(0)

'عدل اسماء التكستبوكس وارقام الاعمدة
                TextBox2.Text = Dgv1.Rows(row).Cells(0).Value.ToString()
                TextBox3.Text = Dgv1.Rows(row).Cells(1).Value.ToString()
                TextBox4.Text = Dgv1.Rows(row).Cells(2).Value.ToString()


                e.Handled = True
            End If
        End If



  End Sub