منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو (/showthread.php?tid=18951)

الصفحات: 1 2

ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - الماجيك مسعد - 25-01-17

ايه افضل كود يتحقق ان العمود فيه قيمة وانه مش فاضى؟

مثلا فى عمود رقم 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)

RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - مساعدة - 25-01-17

السلام عليكم

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

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

RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - الماجيك مسعد - 26-01-17

(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

RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - مساعدة - 26-01-17

نعم هناك خطأ، وهو انك عملت مقارنة نص مع Nothing والمفروض تقارنه مع "" بالاضافة لوضع Val والتي تكون مع الارقام
كود :
itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And i.SubItems(4).Text <> "").ToArray


RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - الماجيك مسعد - 27-01-17

(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

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

+
هجرب غدا عندما يشتغل النت مرة تانية

RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - الماجيك مسعد - 30-01-17

مرحبا اخى

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

لانه لم يعمل

itms = ListView1Items.Where(Function(i) i.SubItems(num).Text.EndsWith(tgsearch.Text) And i.SubItems(4).Text <> "").ToArray

RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - مساعدة - 30-01-17

الكود يحضر الأسطر التي يتوافق فيها شرطان:

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

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



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

RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - صبري زينوبي - 30-01-17

كود :
If ListView1.Items(1).SubItems(7).Text = Nothing Then
           MsgBox("خانة فارغة")
       Else
           MsgBox(" فيه قيمة")
       End If


RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - الماجيك مسعد - 30-01-17

(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

شكرا لك اخى

ولكن الوضع مختلف مع الكود المستخدم

RE: ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو - مساعدة - 30-01-17

بالنسبة لي، لا يوجد عندي تيم فيور،

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