09-07-18, 02:35 PM
(09-07-18, 03:42 AM)dametucorazon كتب : تفضل اخي في الملف بالظبط ما اريده
اقوم اولا بنقل البيانات لفورم FORM3 وبعد ذلك اريد عمل فرز لا يعمل الكود
اريد ان يبحث عن القيمه التي يكتبها في تيكست بوكس وتمسح جميع الاسطر التى لا تحتوي علي الشي المكتوب
جميل...
بنائاً على ما فهمته من السورس المرفق
ما رايك تقوم بالتعديلات التالية..
تعال فى الفورم الرئيسي Form2
وقم باضافة التالى
كود :
Form3.dt = dtاسفل
كود :
Form3.DataGridView1.DataSource = dtوتعال فى الفورم الاخر Form3
واضيف التالى كود :
Public Shared dt As DataTableاسفل
كود :
Public Class Form3ثم اجعل كود (TextBox1_KeyDown) على هذا الشكل
كود :
If e.KeyData = Keys.Enter Then
If Not IsNumeric(TextBox1.Text) Then
dt.DefaultView.RowFilter = "tn Like '%" & TextBox1.Text & "%'"
Else
dt.DefaultView.RowFilter = "n = " & TextBox1.Text
End If
End Ifوبهذا الكود علتك تقدر تعمل فرز بالاسم و عن طريق الرقم
بمعنى لو كتبت 10 او 20 ستجد انه يعمل فرز
أو اذا كتبت حرف أو اسم كاملاً ستجد انه بيعمل فرز لعمود الاسماء
وستجد ان نتائج الفرز تتم على الفورم Form3 وكذلك Form2
بحيث انه عند اغلاق Form3 ستجد Form2 على وضع الفرز
ويمكنك اضافة لمسة جميلة وهو التالى
فى الفورم Form2 فى سطر كود فتح Form3
استبدله بالتالىكود :
Form3.Show()
Me.Hide()وتعال على الفورم Form3
واضع زر او كما تريد مكان استخدام الكود وضع التالىكود :
Form2.Show()
Me.Close()تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية

