07-12-19, 12:58 PM
(آخر تعديل لهذه المشاركة : 07-12-19, 07:42 PM {2} بواسطة sofiane-phy.)
المطلوب : عند الضغط على مفتاح entree في التكست بوكس ينتقل التحديد في الداتا غريد فيو الى السطر الذي بعده ، استعملت هذا الكود لكن به خطأ ، هل من الممكن كود آخر بارك الله فيكم .
كود :
Private Sub txt3_KeyDown(sender As Object, e As KeyEventArgs) Handles txt3.KeyDown
Dim row As Integer
If e.KeyCode = Keys.Enter Then
row += 1
Dgv1.CurrentCell = Dgv1.Rows(row).Cells(0)
Else
If row = Dgv1.Rows.Count - 1 Then
MessageBox.Show("انتهى حجز نقاط القسم", "تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
End If
End Sub------------------------
منكم أتعلم
------------------------
