[sofiane-phy]

(07-12-19, 11:33 PM)محمد كريّم كتب :

كود :

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)
                e.Handled = True
            End If
        End If



  End Sub

جرب ورد علي أخي سفيان

بارك الله فيك أخي محمد كريّم نفس المشكل نعم يقفز الى السطر التالي لكن لا يأخذ قيم السطر و يوضعها في التكست بوكس

---

بارك الله فيك أخي محمد كريّم نفس المشكل نعم يقفز الى السطر التالي لكن لا يأخذ قيم السطر و يوضعها في التكست بوكس تبقى علامات السطر السابق لاحظ الصورة