تقييم الموضوع :
  • 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
بالنسبة لي، لا يوجد عندي تيم فيور،

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف نستعيد قيمة من دالة ضمن مسار مستقل justforit 2 393 21-11-23, 10:51 AM
آخر رد: justforit
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
  طريقة جلب صف من قاعدة البيانات بشرط العمود ٤ لا يساوي فارغ Adel27213 2 424 07-11-23, 05:02 AM
آخر رد: Adel27213
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 464 03-11-23, 09:57 PM
آخر رد: fares_mohammed
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  ارجاع قيمة Function سعد منصور 1 268 01-11-23, 02:10 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟ hazim1 2 558 06-08-23, 01:12 AM
آخر رد: hazim1
Lightbulb كتابة اسم العمود في الداتا جريد فيو أبو خالد الشكري 5 735 18-04-23, 06:22 PM
آخر رد: أبو خالد الشكري
  خطأ في تحميل البيانات من الداتا جريد الي ليست فيو Emam emam 2 512 11-04-23, 01:13 AM
آخر رد: Emam emam

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


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