[عبدالله الدوسري]

مثال هدية ( داخل المشروع ) لترى كيف يكون عند ربط البيانات بالأدوات (   ) كما في الصورة في الأعلى


المشروع كما هو فقط إزالة الخطاء : 
  WindowsApplication1.rar (الحجم : 1.7 م ب / التحميلات : 62)

[essawq]

(24-09-18, 07:25 PM)عبدالله الدوسري كتب :








مثال هدية ( داخل المشروع ) لترى كيف يكون عند ربط البيانات بالأدوات (   ) كما في الصورة في الأعلى


المشروع كما هو فقط إزالة الخطاء : 

السلام عليكم ورحمة الله وبركاتة

مشكور اخي عبد الله الدوسري على المساعدة

ومشكور اخي على الهدية وبارك الله فيك

يعني انت عملت الدليل في 5 دقائق وانا لسة بكود قي الشاشة الثانية ؟؟؟

اخي انا غلبتك معي لم تحل المشكلة بعد

 مثلا اعدل السجل السادس بعد التعديل يقف على السجل الاول كما تلاحظ في الصورة

بصراحة تاخرت في الرد كنت احوس بالادوات شوي  هههه

تحياتي لك وجزيل الشكر للمساعدة

[ay.alhaj]

كود :

          Dim pos As Integer = Me.DgvEdit.CurrentRow.Index
          Me.Textrecid.Text = DgvEdit.Rows(pos).Cells(0).Value
          Me.TxtNmae.Text = DgvEdit.Rows(pos).Cells(1).Value
          Me.TxtPhone1.Text = DgvEdit.Rows(pos).Cells(2).Value
          Me.TxtPhone2.Text = DgvEdit.Rows(pos).Cells(3).Value
             Me.TxtAdress.Text = DgvEdit.Rows(pos).Cells(4).Value
Me.TxtNotes.Text = DgvEdit.Rows(pos).Cells(5).Value
       DgvEdit.Rows(pos).Cells(0).Selected = True

السلام عليكم 

الحل بسيط اخي فقط اضف السطر الاخير كما هو موضح لك وتستطيع تغير اي خلية تريد تحديدها بتغيير قيمة 0 الى رقم الخلية المراد تحديدها اما السطر سوف يحدد السطر بعد التعديل تلقائيا

[essawq]

(25-09-18, 05:38 AM)ay.alhaj كتب :

كود :

          Dim pos As Integer = Me.DgvEdit.CurrentRow.Index
          Me.Textrecid.Text = DgvEdit.Rows(pos).Cells(0).Value
          Me.TxtNmae.Text = DgvEdit.Rows(pos).Cells(1).Value
          Me.TxtPhone1.Text = DgvEdit.Rows(pos).Cells(2).Value
          Me.TxtPhone2.Text = DgvEdit.Rows(pos).Cells(3).Value
             Me.TxtAdress.Text = DgvEdit.Rows(pos).Cells(4).Value
Me.TxtNotes.Text = DgvEdit.Rows(pos).Cells(5).Value
       DgvEdit.Rows(pos).Cells(0).Selected = True

السلام عليكم 

الحل بسيط اخي فقط اضف السطر الاخير كما هو موضح لك وتستطيع تغير اي خلية تريد تحديدها بتغيير قيمة 0 الى رقم الخلية المراد تحديدها اما السطر سوف يحدد السطر بعد التعديل تلقائيا

السلام عليكم ورحمة الله وبركاتة

مشكور اخي 

لم ينجح الامر 

لم يتم تحديد السطر الذي اعدلة 

انا مو عارف لية ما يزبط جربت الكثير من الاكواد ومن يوم ما نزلت الموضوع وانا ابحث هنا وهناك عن حل

يعني ما في طريقة انة بعد التعديل يقف على نفس السطر

يعني افرض اني عندي 5000 سجل في قاعدة البيانات وعدلت سجل رقم 2450 بعد التعديل لازم يوقف عل نفس السجل الي رقمة 2450 ليش يرجع يوقف على السجل الاول ؟؟؟

 

هل لا يوحد حل 

تحياتي لكم حميعا

[elgokr]

ارفق المشروع اخى الفاضل

لاتمام وضع الكود فى المشروع لديك واعادة ارفاقة لك

تحياتى لك

وتمنياتى لك التوفيق

[essawq]

(25-09-18, 11:31 AM)elgokr كتب :

ارفق المشروع اخى الفاضل

لاتمام وضع الكود فى المشروع لديك واعادة ارفاقة لك

تحياتى لك

وتمنياتى لك التوفيق

السلام عليكم ورحمة الله وبركاتة

هذا المشروع اخي الفاضل

بارك الله فيك

[essawq]

السلام عليكم ورحمة الله وبركاتة

بانتظاركم جزاكم الله كل الخير

تحياتي لكم

[elgokr]

وعليكم اللام ورحمة الله وبركاته

لو كنت انتظرت سنة كاملة بدون ارفاق السورس

لكان الجميع مل ولا يعد احد بالمساعدة

لان لا احد كان سيتوقع الطريقة الذى تتعامل بها فى تعديل البيانات

على اى حال عشان يضبط معك عملية التحديد كل ما عليك فعله التالى

قم باضافة الكود التالى فى اى مكان بالفورم

كود :

   Private Function FindItems(ByVal strSearchString As String) As Boolean
       For Each myRow As DataGridViewRow In DgvEdit.Rows
           For Each myCell As DataGridViewCell In myRow.Cells
               If InStr(myCell.Value.ToString, strSearchString) Then
                   myRow.Selected = True
                   Return True
               End If
           Next
       Next
       Return False
   End Function

ثم فى حدث زر التعديل بالاخر الكود الزر فقط استخدم السطر التالى

كود :

       FindItems(TxtNmae.Text)

وبكده سيعمل معد التظليل على سطر الذى تم التعديل عليه

تحياتى لك

وتمنياتى لك التوفيق

[essawq]

(26-09-18, 01:22 AM)elgokr كتب :

وعليكم اللام ورحمة الله وبركاته

لو كنت انتظرت سنة كاملة بدون ارفاق السورس

لكان الجميع مل ولا يعد احد بالمساعدة

لان لا احد كان سيتوقع الطريقة الذى تتعامل بها فى تعديل البيانات

على اى حال عشان يضبط معك عملية التحديد كل ما عليك فعله التالى

قم باضافة الكود التالى فى اى مكان بالفورم

كود :

   Private Function FindItems(ByVal strSearchString As String) As Boolean
       For Each myRow As DataGridViewRow In DgvEdit.Rows
           For Each myCell As DataGridViewCell In myRow.Cells
               If InStr(myCell.Value.ToString, strSearchString) Then
                   myRow.Selected = True
                   Return True
               End If
           Next
       Next
       Return False
   End Function

ثم فى حدث زر التعديل بالاخر الكود الزر فقط استخدم السطر التالى

كود :

       FindItems(TxtNmae.Text)

وبكده سيعمل معد التظليل على سطر الذى تم التعديل عليه

تحياتى لك

وتمنياتى لك التوفيق

السلام عليكم ورحمة الله وبركاتة

اخي الفاضل الجوكر بارك الله بك على التعب الذي اراة ويراة كل الاعظاء 

لو كنت انتظرت سنة كاملة بدون ارفاق السورس

ياسيدي الفاضل انا قمت بارفاق السورس في المشاركة رقم (8)

لان لا احد كان سيتوقع الطريقة الذى تتعامل بها فى تعديل البيانات

افهم ان الحلول التي طرحت في هذا الموضوع تعمل لكن بطريقة اخرى

اخي الفاضل انا متوسط في البرمجة وكان لي هذا الموضوع 

اقتراحاتكم حول المشروع و على طريقة كتابة الاكواد

http://vb4arb.com/vb/showthread.php?tid=26560

لانني اعرف ان البرمجة بحر وليست سهلة

واعرف ان هناك اكثر من طريقة لكتابة الكود لكن المحترفين يعرفون ان هذا الكود اسرع من هذا الكود بالتنفيذ مثلا

اكيد هناك طريقة افضل هل بالامكان شرحها لي وليستفد جميع الاعظاء

اخيرا اخي الفاضل

طبقت ما شرحتة لي ولم يتم تحديد السطر الذي اعدلة

وانا اشكرك جزيل الشكر للمساعدة

كما اشكر جميع من ساعدني في هذا الموضوع   

[elgokr]

لسبب ما توقعت انك ستقول ذلك

لانى الاحظ دائماً عند اتمام تتبع شرح فى تعديل

لا يتم تطبيق التعديل كلياً 

ولهذا قمت محتفظ بالسورس حتى اري ردك

بحيث اذا كما توقعت ساقوم برفع السورس بعد التعديل

المرفق السورس فقط بدون قاعدة البيانات

بما ان قاعدة البيانات لديك

فقط اذهب الى كود الاتصال بقاعدة البيانات وعدلها لما هو لديك من اعدادات

صورة توضيح لخطوات اتمام التعديل

الصورة عن البحث على اسم

صورة عند اتمام التعديل

الصورة بعد انهاء التعديل وتحديد الصف تلقائي

تحياتى لك

وتمنياتى لك التوفيق