[Sajad]

السلام عليكم

اخي العزيز المشكلة انك تستعلم عن اسماء وبالتالي فهي غير متساوية مع الارقام ولهذا تظهر المشكلة وايضا انك مسند البيانات الى Listbox1 كمصدر للبيانات لذا يعتبر الاسماء كصفوف

وايضا تظهر مشكلة

المثال في المرفقات بعد التعديل

[عبد الله]

وعليكم السلام ورحمة الله وبركاته
بارك الله فيك أخي سجاد على جهدك الرائع والمميز ، جزاك الله خيرا.

نقطة ربما تكون الأخيرة وهي :
أرأيت هذا الشرط :

كود :

If item.Items(e.Index).ToString() = ListBox2.Items(j).ToString() Then

كيف أعيد صياغته بحيث أقول: إن كان جزء من النص الأول يساوي النص الثاني كالتي نستخدمها في الإستعلامات وهي:

كود :

LIKE '%" & Trim(TextBox1.Text) & "%'

بحيث يتم تلوين الكلمة مثلاً "خالد محمد أحمد" لأن القائمة الثانية تحتوي كلمة "محمد" وهكذا.

بارك الله في جهودكم ونفع الله بكم المسلمين.

[Sajad]

السلام عليكم

يكون الشرط هكذا:

كود :

item.Items(e.Index).ToString().Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries).Contains(ListBox2.Items(j).ToString())

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

[عبد الله]

sajad كتب :السلام عليكم

يكون الشرط هكذا:

كود :

item.Items(e.Index).ToString().Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries).Contains(ListBox2.Items(j).ToString())

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

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

بيض الله وجهك ووجوه والديك ، أحسنت وبارك الله فيك ، غفر الله لنا ولك ولوالدينا وللمسلمين.

عمل ممتاز وجهد تُشكر عليه بجد.

[Sajad]

السلام عليكم

آمين أجمعين يارب

[MetoDas]

(29-06-13, 07:53 PM)عبد الله كتب :

Abu Ehab كتب :تـــــــــم تعـديل المرفق ..
معلش شباب .. هو كل الحكاية حصل لبس والصراحة مشغول جدا في نظام Xprema Scorpion  النظام المحاسبي العالمي  والذي سيكون مفخرة لكل العرب  أن شاء الله .

بارك الله فيك وجزاك الله خيراً على المثال الرائع ،،، ووفقك الله واعانك على نظامك المحاسبي وإخراجه بأفضل صورة للمسلمين وللعالم اجمع.

لكن أخي لدي مسألة في هذا الشأن عجزت في ضبط الطريقة من خلال المثال المرفق الخاص بك.

انظر للمثال المرفق :
ما أريد تطبيقه هو :
يوجد لدي Listbox1 فيها قيم ميعنة وكذلك Listbox2 فيها قيم معينة أخرى ..
أريد تلوين فقط الصفوف في Listbox1 التي قيمتها مساوية للصفوف في Listbox2 ؟

حاولت ان اضبط الشرط في مثالك المرفق ولكن دون جدوى ، فلم أجد إلا أن اعمل مثال ويتم التعديل عليه هنا.

الملف فارغ 
او غير موجود