تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التنقل بالانتر داخل الداتا جريد فيو
#1
بعد اذنكم يا جماعة الخير
ازاى اتحرك بزرار الانتر داخل الداتا جريد فيو
الرد }}}}
تم الشكر بواسطة:
#2
جرب الكود التالي ::


PHP كود :
Private Sub DataGridView1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles DataGridView1.KeyDown
            If e
.KeyCode Keys.Enter Then
                e
.SuppressKeyPress True
                Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
                Dim iRow 
DataGridView1.CurrentCell.RowIndex
                If iCol 
DataGridView1.Columns.Count 1 Then
                    If iRow 
DataGridView1.Rows.Count 1 Then
                        DataGridView1
.CurrentCell DataGridView1(0iRow 1)
 
                   End If
 
               Else
                    DataGridView1
.CurrentCell DataGridView1(iCol 1iRow)
 
               End If
 
           End If
 
       End Sub 
الرد }}}}
تم الشكر بواسطة: فارس احمد السيد
#3
تحتاج الى كودين
 الاول: اذا لم يتم التعديل على الخلايا
PHP كود :
Private Sub DataGridView1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles DataGridView1.KeyDown
        If e
.KeyCode Keys.Enter Then
            e
.SuppressKeyPress True
            Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
            Dim iRow 
DataGridView1.CurrentCell.RowIndex
            If iCol 
DataGridView1.Columns.Count 1 Then
                If iRow 
DataGridView1.Rows.Count 1 Then
                    DataGridView1
.CurrentCell DataGridView1(0iRow 1)
 
               End If
 
           Else
                DataGridView1
.CurrentCell DataGridView1(iCol 1iRow)
 
           End If
 
       End If
 
   End Sub 

الثاني: اذا تم التعديل على الخلايا
PHP كود :
    Private Sub DataGridView1_CellEndEdit(sender As System.ObjectAs System.Windows.Forms.DataGridViewCellEventArgsHandles DataGridView1.CellEndEdit
        Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
        Dim iRow 
DataGridView1.CurrentCell.RowIndex
        
If iCol DataGridView1.Columns.Count 1 Then
            
If iRow DataGridView1.Rows.Count 1 Then
                DataGridView1
.CurrentCell DataGridView1(0iRow 1)
            End If
        Else
            If iRow DataGridView1.Rows.Count 1 Then
                SendKeys
.Send("{up}")
            End If
            DataGridView1.CurrentCell DataGridView1(iCol 1iRow)
        End If
    End Sub     
الرد }}}}
تم الشكر بواسطة: فارس احمد السيد
#4
(22-02-16, 12:34 AM)mazen.excel كتب : تحتاج الى كودين
 الاول: اذا لم يتم التعديل على الخلايا
PHP كود :
Private Sub DataGridView1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles DataGridView1.KeyDown
        If e
.KeyCode Keys.Enter Then
            e
.SuppressKeyPress True
            Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
            Dim iRow 
DataGridView1.CurrentCell.RowIndex
            If iCol 
DataGridView1.Columns.Count 1 Then
                If iRow 
DataGridView1.Rows.Count 1 Then
                    DataGridView1
.CurrentCell DataGridView1(0iRow 1)
 
               End If
 
           Else
                DataGridView1
.CurrentCell DataGridView1(iCol 1iRow)
 
           End If
 
       End If
 
   End Sub 

الثاني: اذا تم التعديل على الخلايا
PHP كود :
    Private Sub DataGridView1_CellEndEdit(sender As System.ObjectAs System.Windows.Forms.DataGridViewCellEventArgsHandles DataGridView1.CellEndEdit
        Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
        Dim iRow 
DataGridView1.CurrentCell.RowIndex
        
If iCol DataGridView1.Columns.Count 1 Then
            
If iRow DataGridView1.Rows.Count 1 Then
                DataGridView1
.CurrentCell DataGridView1(0iRow 1)
            End If
        Else
            If iRow DataGridView1.Rows.Count 1 Then
                SendKeys
.Send("{up}")
            End If
            DataGridView1.CurrentCell DataGridView1(iCol 1iRow)
        End If
    End Sub       

لكل من شارك فى اجابة اسئلتى خالص التحية و الاحترام
و عرفان بالجميل
اشكركم انتم و اسرة هذا المنتدى على ماقدتموه فى خدمة المبتدئين امثالى
الرد }}}}
تم الشكر بواسطة:
#5
مالمقصود بالتعديل او قبل التعديل؟ ولماذا الحاجة الى كودين ارجو التوضيح ان امكن مع الشكر
الرد }}}}
تم الشكر بواسطة:
#6
قد يكون المستخدم بحاجة الى تعديل البيانات الموجودة في خلايا الداتاجريد لذلك عند تعديل هذه البيانات في خلايا الداتاجريد، وعند الانتهاء من التعديل يتم الضغط انتر فينفذ كود التنقل
وقد لا يكون المستخدم بحاجة الى الدخول الى الخلية وتعديلها ، لذلك ينفذ كود التنقل بدون تعديل

انتبه الى مكان اجراء الكود
CellEndEdit
KeyDow
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة عند تحديث البيانات بالداتا جريد فيو محمد اسماعيل 6 51 منذ 1 ساعه مضت
آخر رد: محمد اسماعيل
  [سؤال] نقل بيانات من داتا جريد فيو إلى داتا جريد فيو مرتبطه بداتا باوند mawd 4 76 منذ 11 ساعة مضت
آخر رد: Rabeea Qbaha
  نقل الداتا الموجودة في داتا جريد فيو الي داتا جريد فيو أخري khaled12345 5 101 11-12-17, 10:39 AM
آخر رد: mawd
  ارسال الداتا جريد فيو بالايميل السيد الجوهري 2 49 11-12-17, 12:18 AM
آخر رد: السيد الجوهري
  [VB.NET] المساعدة في اضافة وحفظ بيانات الداتا جريد محمد اسماعيل 1 24 10-12-17, 10:16 PM
آخر رد: حريف برمجة
  هل يمكن كتابة كلاس داخل كلاس anes 2 66 09-12-17, 10:21 PM
آخر رد: anes
  [VB.NET] مشكلة عند تحديث البيانات بالداتا جريد فيو محمد اسماعيل 0 37 09-12-17, 03:28 AM
آخر رد: محمد اسماعيل
  [VB.NET] طريقة طباعة سجل محدد من الداتا قريد فيو larbihamri 6 117 08-12-17, 12:55 PM
آخر رد: larbihamri
  كيفية حذف اكثر من سطر في الداتا جريد فيو khaled12345 4 113 08-12-17, 03:09 AM
آخر رد: khaled12345
  تمرير الداتا من TextBox الي RichBox khaled12345 6 109 04-12-17, 11:59 PM
آخر رد: khaled12345

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم