تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو
#1
ايه افضل كود يتحقق ان العمود فيه قيمة وانه مش فاضى؟

مثلا فى عمود رقم 7

ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو

لكى استخدمه مع هذا اكود

Dim itms() As ListViewItem = ListView1Items.
Where(Function(i) i.SubItems(0).Text.Equals(TextBox1.Text) _
And Val(i.SubItems(3).Text).Equals(Val(TextBox2.Text))).ToArray

Me.ListView1.Items.Clear()
Me.ListView1.Items.AddRange(itms)
الرد
تم الشكر بواسطة:
#2
السلام عليكم

تفضل الكود
كود :
' Items الصف
' SubItems العمود
' الصف والعمود يبدأ بالرقم صفر
' يعني العمود الاول يكون العمود رقم صفر والعمود الثاني يكون العمود رقم واحد وهكذا في الصف

Dim hasValue As Boolean = ListView1.Items(1).SubItems(7).Text.Trim <> ""
هنا سيحتوي hasValue إما True وتعني فارغ أو False وتعني ليس فارغ

لكن لم أفهم قولك أنك تريد استخدامه مع الكود المذكور
الرد
#3
(25-01-17, 02:41 PM)مساعدة كتب : السلام عليكم

تفضل الكود
كود :
' Items الصف
' SubItems العمود
' الصف والعمود يبدأ بالرقم صفر
' يعني العمود الاول يكون العمود رقم صفر والعمود الثاني يكون العمود رقم واحد وهكذا في الصف

Dim hasValue As Boolean = ListView1.Items(1).SubItems(7).Text.Trim <> ""
هنا سيحتوي hasValue إما True وتعني فارغ أو False وتعني ليس فارغ

لكن لم أفهم قولك أنك تريد استخدامه مع الكود المذكور

استخدمت هذا الكود لو يفعل شئ

If RadioButton5.Checked = True And CheckBox4.Checked = True Then
itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And Val(i.SubItems(4).Text <> Nothing)).ToArray
frm_fb_id_filter.ListView1.Items.Clear()
frm_fb_id_filter.ListView1.Items.AddRange(itms)


هل في اخطاء فى الكود خصوصا فى هذا السطر And Val(i.SubItems(4).Text <> Nothing)).ToArray
الرد
تم الشكر بواسطة:
#4
نعم هناك خطأ، وهو انك عملت مقارنة نص مع Nothing والمفروض تقارنه مع "" بالاضافة لوضع Val والتي تكون مع الارقام
كود :
itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And i.SubItems(4).Text <> "").ToArray
الرد
تم الشكر بواسطة: الماجيك مسعد
#5
(26-01-17, 10:35 AM)مساعدة كتب : نعم هناك خطأ، وهو انك عملت مقارنة نص مع Nothing والمفروض تقارنه مع "" بالاضافة لوضع Val والتي تكون مع الارقام
كود :
itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And i.SubItems(4).Text <> "").ToArray

حسنا اخى بارك الله فيك على شرحك المفصل لى
ربنا يزيدك من علمه ويزيدك تواضع

+
هجرب غدا عندما يشتغل النت مرة تانية
الرد
تم الشكر بواسطة:
#6
مرحبا اخى

هل جربت هذا الكود؟

لانه لم يعمل

itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And i.SubItems(4).Text <> "").ToArray
الرد
تم الشكر بواسطة:
#7
الكود يحضر الأسطر التي يتوافق فيها شرطان:

الشرط الأول:
أن تكون قيمة خلية العمود (num) ينتهي بنص يطابق محتوى tgsearch.Text
كود :
i.SubItems(num).Text.EndsWith(tgsearch.Text)

الشرط الثاني:
أن لا يكون محتوى خلية العمود الخامس (4) فارغا
كود :
i.SubItems(4).Text <> ""



كل مشاركاتي في هذا الموضوع اجتهاد، لأنك لم تضع مشروعك لتجربته، (على أن يكون المشروع يحتوي بيانات وليس فارغاً)،
الرد
تم الشكر بواسطة: الماجيك مسعد
#8
كود :
If ListView1.Items(1).SubItems(7).Text = Nothing Then
           MsgBox("خانة فارغة")
       Else
           MsgBox(" فيه قيمة")
       End If
السُّعُودِيَّةُ عَبَقٌ يَتَدَفَّقُ فِي ذَاكِرَةِ التَّارِيخِ ، وَحَنِينٌ يَجْرِي فِي أَوْصَالِ الرَّغْبَةِ ، وَعَرَقُ رَجَالٍ يَمْلَأُ أَنْفَاسَ الحَيَاةِ ، وَشَوْقٌ يَغْمُرُ جَنَبَاتِ الفُؤَادِ ، وَغُصْنُ زَيْتُونٍ تَطِيرُ إِلَيْهِ بَلَابِلُ الرُّوحِ.
الرد
تم الشكر بواسطة: الماجيك مسعد
#9
(30-01-17, 11:03 AM)مساعدة كتب : الكود يحضر  الأسطر التي يتوافق فيها شرطان:

الشرط الأول:
أن تكون قيمة خلية العمود (num) ينتهي بنص يطابق محتوى tgsearch.Text
كود :
i.SubItems(num).Text.EndsWith(tgsearch.Text)

الشرط الثاني:
أن لا يكون محتوى خلية العمود الخامس (4) فارغا
كود :
i.SubItems(4).Text <> ""



كل مشاركاتي في هذا الموضوع اجتهاد، لأنك لم تضع مشروعك لتجربته، (على أن يكون المشروع يحتوي بيانات وليس فارغاً)،

اعلم اخى انى تعبتك معى

ولكن غصب عنى المشروع حجمه كبير

واتمنى لو تفتح خاصية الرسائل لديك

او اى طريقة للتواصل معك

او تدخلى تيم فيور
لترى المشروع بنفسك

واكون ممنون لك

(30-01-17, 12:30 PM)صبري زينوبي كتب :
كود :
If ListView1.Items(1).SubItems(7).Text = Nothing Then
           MsgBox("خانة فارغة")
       Else
           MsgBox(" فيه قيمة")
       End If

شكرا لك اخى

ولكن الوضع مختلف مع الكود المستخدم
الرد
تم الشكر بواسطة:
#10
بالنسبة لي، لا يوجد عندي تيم فيور،

اعمل مشروع مصغر على أن يحتوي بيانات لإيجاد الكود المناسب.
الرد
تم الشكر بواسطة: الماجيك مسعد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عملية جمع قيمة التكست ZaerAllail 10 227 15-09-20, 09:24 PM
آخر رد: ZaerAllail
  [ تمّ الحل ] : جلب قيمة من الريجيستري عبد العزيز البسكري 11 194 10-09-20, 04:01 PM
آخر رد: عبد العزيز البسكري
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 387 07-09-20, 12:28 AM
آخر رد: محمد العامر
  [سؤال] انا لوانا ضفت coulmns ل dt أو datagridviw ازاي اغير نوع الداتا بتاعه الصف منه 3 176 27-08-20, 10:09 PM
آخر رد: asemshahen5
  [كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox momiana1 8 16,525 18-08-20, 12:51 PM
آخر رد: mohammed1994
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 3 249 02-08-20, 02:10 AM
آخر رد: ابراهيم ايبو
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 0 142 01-08-20, 07:49 PM
آخر رد: جيولوجي مبتدئ
  مساعدة عاجلة و يرفع للسادة مشرفى و مديرى المنتدى : ازاى أشغل برنامجى على لاب توب xprogrammer 4 346 27-07-20, 11:14 AM
آخر رد: محمد كريّم
  [سؤال] منين او ازاى اجيب الكود الخاص بالصورة دى mostafa nada 1 217 13-07-20, 10:16 PM
آخر رد: DR.YASER
  تحديد عمود في الداتا جريد و اختباره هل هو فارغ ام لا بسام محمدغانم 1 244 05-07-20, 07:17 PM
آخر رد: WaeLx

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


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