24-09-18, 11:22 AM
(24-09-18, 12:00 AM)rizakflash8 كتب : لقد قمت بالتغيرات قما قلت تماما لكن البحث لم يعطي النتائج التي أردتها
نفرض أننا قمنا بتسجيل samsung s5 في الجدول
وعند البحث عن طريق textbox وكتابة كلمة samsungs5
فإن listbox تكون فارغة ويعتبر الكلمة غير موجودة
وعند الحفظ يقوم بحفظ الكلمتين وهذا خطأ بنسبة لي.. يصبح الجدول مسجل فيه (samsung s5 و samsungs5)
هل من سبيل لحل هاته المشكلة
بهذه الطريقة ستحتاج ان تجعل الكود بهذا الشكل
كود :
Dim dv As New DataView(dtTypee)
dv.RowFilter = String.Format("name like'%{0}%'", TextBox1.Text)
If dv.Count <> 0 Then
MsgBox("الصنف مسجل مسبقاً")
Exit Sub
End If
dv.RowFilter = String.Format("name like'%{0}%'", TextBox1.Text.Replace(Space(1), ""))
If dv.Count <> 0 Then
MsgBox("الصنف مسجل مسبقاً")
Exit Sub
End If
For ii As Integer = 0 To dtTypee.Rows.Count - 1
dtTypee(ii)("name") = dtTypee(ii)("name").Replace(Space(1), "")
If dtTypee(ii)("name") = TextBox1.Text.Replace(Space(1), "") Then
MsgBox("الصنف مسجل مسبقاً")
Exit Sub
End If
Nextمع التنبيه تغيير كلمة name الموجود فى الفلتر والكود بالاسفل الى اسم العمود الخاص باسماء المنتجات
مع تطبيق الامر تغيير كلمة like بعلامة = لما تم شرحه مسبقاً بالاعلى حسب الحاجة لك
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية

