تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم ip داخل textbox Incubus 2 38 منذ 2 ساعة مضت
آخر رد: Incubus
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 1 60 أمس, 03:22 AM
آخر رد: abid
  كيف يتم جعل اول سطر فى الداتا جريد فيو يظهر الرصيد السابق السيد الجوهري 1 103 09-12-16, 10:44 PM
آخر رد: السيد الجوهري
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 1 48 09-12-16, 06:31 PM
آخر رد: ابراهيم النعيمي
  المجموع التراكمي في داتا جريد فيو السيد الجوهري 2 57 08-12-16, 09:46 PM
آخر رد: السيد الجوهري
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 60 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 80 01-12-16, 07:04 AM
آخر رد: araxis
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 73 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 188 29-11-16, 07:26 AM
آخر رد: amgad525
  الداتا ببتلغبط لما الكمبيوتر بيتفطع عنة الكهربا مرة واحدة araxis 5 132 22-11-16, 06:42 PM
آخر رد: zinom

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


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